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SUMMARY 

A  computer  program  has  been  developed  which  is  capable  of  analyzing  the 
short  takeoff  of  typical  V/STOL  aircraft  configurations.  This  program  can  be 
used  as  a  means  for  performance  estimation  as  well  as  for  assisting  in  aircraft 
conceptual  design. 

This  program  was  written  in  FORTRAN  for  use  on  a  CQC  6600  and  uses  five 
supporting  subroutines.  This  report  describes  the  analytical  development  and 
logic  development  for  the  program.  In  addition  it  includes  a  user  description 
and  complete  listing  of  the  program 
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INTRODUCTION 

A  methodology  for  predicting  the  short  takeoff  (STO)  performance  of 
Vertical  or  Short  Takeoff  and  Landing  (V/STOL)  aircraft  is  essential  for  the 
preliminary  design  of  these  vehicles  as  the  propulsion  system  may  be  sized  by 
STO  requirements.  Since  a  wide  range  of  VSTOL  configurations  may  be  of  interest 
to  the  Navy,  and  each  would  have  its  own  unique  set  of  thrust  and  drag  varia¬ 
tions  during  the  takeoff  run,  a  generalized  computer  program  offers  the  most 
feasible  method  of  analyzing  STO  performance. 

Several  STO  programs  currently  available  in  the  technical  community  were 
examined  for  applicability.  It  was  found  that  each  program  was  developed  for  a 
specific  configuration  and  did  not  provide  the  flexibility  necessary  to  examine 
arbitrary  V/STOL  aircraft  concepts.  Since  the  existing  programs  could  not  be 
easily  modified,  it  was  necessary  to  develop  a  new  program. 

The  resulting  program  can  be  utilized  for  performance  estimation  and  for 
aircraft  conceptual  design.  In  the  performance  estimation  mode,  inputs  are 
aircraft  aerodynamics,  propulsion  data,  takeoff  gross  weight  (TOGW) ,  and  STO 
technique  while  outputs  are  time,  distance,  velocity,  longitudinal  acceleration, 
lift,  drag,  and  horizontal  and  vertical  gross  thrust.  These  data  can  be  cal¬ 
culated  at  the  condition  of  liftoff,  at  some  specified  rate  of  climb  (R/C) ,  or 
at  some  specified  sink  distance.  In  the  conceptual  design  mode,  inputs  are 
given  design  parameters  such  as  takeoff  distance,  rate  of  climb  at  liftoff, 
and  longitudinal  acceleration  (with  or  without  one  engine  inoperative  (OEI)), 
and  outputs  such  as  engine  size  and  optimum  STO  technique  can  be  determined. 

DISCUSSION 

Theoretical  Considerations 

This  program  utilizes  an  open  form,  time  history,  numerical  integration. 

The  forces  included  in  this  treatment  are  lift,  drag,  gross  thrust,  and  friction. 
A  force  diagram  is  presented  in  Figure  1.  The  horizontal  forces  are  summed 
and  divided  by  the  aircraft  mass  to  yield  a  horizontal  acceleration.  This 
acceleration  in  turn  is  equated  to  the  following  kinematic  formula: 

ax  =  AV^  =  1  A(V^2) 

AT  ASx 

Using  time  increments,  a  change  in  velocity  and  distance  can  be  determined. 
More  specifically,  the  basic  equations  are: 

DRAG  =  CD*1/2PV2S+DENGTNE  related  +  DSTORE  +  DOEI  +  DINDUCED 

where:  DENGINE  RELATED  =  ram  drag,  spillage  drag,  boattail  drag,  etc. 

LIFT  »  CL*l/2pV2S  +  Linduced 
Summing  vertical  gross  thrust  components: 

FGv  “  FGfV  +  FGav 
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FGy  =  fG!*SIN  el  +  fG2*SIN  S2 


where:  FG2  =  F Gp  -  fore  engine  gross  thrust  loss 
FG2  =  FGa  -  aft  engine  gross  thrust  loss 

51  =  9jp  +  9p  +  engine  datum  angle 

52  =  ® j a  +  9p  +  engine  datum  angle 
Summing  horizontal  gross  thrust  components: 


fGh  =  FGFh  +  FGAh 
fgh  =  fgi*cos  8i  +  fG2*cos  s2 
Balancing  the  vertical  forces: 

BALANCE  =  W  -  Lift  -  FGv 


The  change  in  velocity  over  a  time  increment  AT  is: 


AVX  »  AT*g*(FGH  “  DRAG  -  p  *BALANCE)/W 
where:  AVX  =  Vx2  -  Vxl 
Finally,  the  distance  gained  over  AT  is: 

ASX  -  l/2*AT*((VX2-WOD)2  -  (VXl-WOD)2)/AVx 


By  using  this  technique  the  forces  which  vary  as  a  function  of  time  and 
angle  can  be  accurately  represented  and,  in  addition,  pilot  technique  can  also 
be  closely  approximated.  Also  by  using  small  time  increments  any  procedural 
changes  can  be  fitted  through  the  input. 

Increased  program  accuracy  can  be  obtained  by  accounting  for  and  by 
correcting  a  pitching  moment  inbalance.  This  is  done  through  the  following 
formula: 


Z  My  =  Iyycg  ctMG 

By  making  use  of  the  supplied  aircraft  moment  of  inertia  and  a  power-on 
pitching  moment,  an  angular  acceleration  about  the  main  gear  can  be  taken  into 
account.  The  moment  about  the  vehicle  center  of  gravity  is: 

MOMENT  -  CM  *  1/2»V2*MAC 

The  fore  gear  wheel  reaction  force  is  therefore: 

Rp  -  (BALANCED-MOMENT) /(LRF  +  S3  +  cos  9p) 
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where:  8-j  =  LRA*cos  0p  +  LRA*u*sin  9p  +  LR*y*cos  6p  -  LR*sin  0p 
See  Table  I  for  the  definitions  of  LR,  LRA,  LRF  and  MAC. 

If  the  supplied  aerodynamic  data  is  a  function  of  control  surface  deflec¬ 
tion,  the  deflection  required  to  nullify  any  moments  can  be  calculated.  This 
is  accomplished  by  the  following  algorithm: 

initialize  a,  0j  and  6e 
CL  =  f(a,  6e,  9j ) 

Cp  =  f (Cl,  6e,  0 j ) 

=  f(CL,  6e,  8 j ) 

DRAG  =  f(CD)  +  ^ENGINE  RELATED  +  DSTORE  +  DOEI  +  DINDUCED 
LIFT  =  f (Cl)  +  LiNDUCED 


MOMENT  =  f(CM) 

FGV  -  f(FG’  9j*  6P) 

BALANCE  =  W  -  Lift  -  FGv 

Rp  =  f  (BALANCE,  MOMENT) 
iterate  5e  until  Rp  =  0 

Rates  of  climb  or  sink  can  be  calculated  if  the  horizontal  component  of 
velocity  is  considered  much  larger  than  the  vertical  component  (Vz  <  .02  Vx) . 
Here  the  vertical  acceleration  is:  a2  =  AVZ 

AT- 


and  the  vertical  velocity  is:  Vz  =  ASZ 

AT~ 

Hence,  climb  or  sink  accelerations,  velocities,  and  distances  can  be  determined. 
For  rate  of  climb  velocity  over  the  AT  increment: 

az  =  (-BALANCE) *g/w 

az  =  l/2*(az2  +  azl) 

To  determine  the  incremental  ROC: 

AROC  =  az*AT 

For  sink  off  the  bow  distance  over  the  AT  increment: 
az  =  BALANCE*g/w 
lz  ^  l/2*(az2  +  azl) 

AVZ  -  az*  AT 


8 


NADC-81259-60 


V  =  V  +  AV 
VZ2  vzi  T  avz 


/2  =  1/2  *(V22  +  V21) 


The  incremental  sink  distance  is: 


ASINK  =  VZ.*AT 

If  an  instantaneous  ROC  at  liftoff  is  needed,  the  following  formula  is 

used: 


ax  =  (FGh  -  DRAG  -  y*BALANCE)/W 
Assuming  a  small  flight  path  angle  at  liftoff: 


^^instantaneous 


V  sin  y  -  Vy 


Where  Vy  -  V  *((LIFT  +  FGy  -  W)/F<^) 

The  main  program  logic,  which  illustrates  how  all  the  above  equations 
are  implemented,  is  presented  in  Appendix  D. 


Program  Description 

In  addition  to  the  main  program,  which  performs  the  computations  on  the 
dynamic  equations,  there  are  five  supporting  subroutines,  as  described  below. 


TAKE  5  -  In  the  formulation  of  the  STO  computer  program  a  four  degree-of~ 
freedom  interpolation  routine  was  developed  from  an  earlier  three  degree-of-free- 
dom  routine  (reference  (a)).  This  was  done  to  accomodate  aerodynamic  inputs  which 
are  a  function  of  four  variables. 


This  subroutine  has  two  modes  of  operation.  In  the  first  mode,  table 
data  representing  aerodynamic  and  propulsion  characteristics  are  input  and 
stored.  Each  table  is  assigned  a  predetermined  reference  number.  In  the 
second  mode,  table  data  is  interpolated  and  extrapolated  by  the  function 
SPLNQ1  for  use  in  the  dynamic  calculations.  TAKE5  subroutine  logic  is  pre¬ 
sented  in  Appendix  D. 

SPLNQ1  -  This  function  is  used  to  interpolate  or  extrapolate  tabular  data. 
The  interpolation  is  calculated  using  a  local  curve  fit  scheme  described  in 
reference  (b).  Linear  extrapolations  are  made  using  each  end  point  slope  of 
the  local  curve  fit. 

UPDATE  -  This  subroutine  is  used  to  reshape  data  arrays  into  a  form 
usuable  by  the  function  SPLNQ1. 

SNEST  -  This  is  an  iteration  subroutine  used  to  solve  one  degree-of- 
freedom  problems.  A  slope  intercept  convergence  technique  is  employed. 
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ATMOS  -  This  is  a  1962  standard  atmosphere  table  which  returns  properties 
of  density,  pressure,  temperature,  and  sound  velocity  for  an  input  geometric 
altitude. 

The  data  required  for  the  program  consists  of  a  series  of  single-value, 
fixed  inputs  and  multiple-valued  tabular  inputs.  The  form  of  the  computer  data 
deck  necessary  to  make  a  run  is  presented  in  Figure  2. 

The  tabular  data  includes: 

-  Gross  thrust  as  a  function  of  Mach  number  and  engine  speedup  time. 

-  Fuel  flow  as  a  function  of  Mach  number  and  engine  speedup  time. 

-  Drag  coefficient  as  a  function  of  lift  coefficient,  control  surface 
deflection,  jet  nozzle  inclination,  and  velocity. 

-  Lift  coefficient  as  a  function  of  angle  of  attack,  control  surface 
deflection,  jet  nozzle  inclination,  and  velocity. 

-  Induced  lift  increment  as  a  function  of  jet  inclination  angle 

-  Induced  drag  increment  as  a  function  of  jet  inclination  angle 

-  Pitching  moment  coefficient  as  a  function  of  lift  coefficient,  control 
surface  deflection,  jet  nozzle  inclination,  and  velocity. 

-  Aircraft  moment  of  inertia  as  a  function  of  aircraft  mass. 

-  Distance  from  aircraft  center  of  gravity  to  main  gear  wheel  as  a  function 
of  aircraft  mass. 

-  Gross  thrust  loss  relative  to  zero  nozzle  deflection  gross  thrust  as 
a  function  of  jet  nozzle  angle. 

-  Throttle  dependent,  ram,  and  external  store  drag  as  a  function  of  Mach 
number . 

These  tabular  inputs  are  graphically  illustrated  in  Appendix  A. 

The  fixed  inputs  consist  of  aircraft  size  and  mass  data,  ambient  conditions, 

initial  thrust  vector  angles  and  control  surface  deflections,  rotation  rates 

for  the  nozzles  and  specif ication  for  events  that  may  occur  during  the  takeoff 
run  (e.g.  loss  of  an  engine).  Table  I  contains  a  fixed  input  variable  list. 

Program  Options 

Available  to  the  user  are  two  main  options  which  concern  the  type  of  STO 
vehicle  that  can  be  approximated.  First,  is  a  Harrier  type  vehicle  which 
maintains  moment  balance  by  a  reaction  control  system,  rotates  its  jet  nozzles, 
and  pitches  up  at  a  given  rate  and  at  a  predetermined  airspeed.  Second,  is  a 
vehicle  which  maintains  moment  balance  by  a  control  surface  deflection  and  has 
a  fixed  jet  nozzle  angle. 
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For  vehicles  using  control  surfaces  to  maintain  moment  balance  on  the 
ground,  the  program  will  search  for  the  start  of  auto  rotation  (stick  free 
pitch  up)  and  either  give  information  on  the  rotation  of  the  aircraft  about 
the  aft  wheel  or  attempt  to  correct  this  rotation  by  the  deflection  of  a 
control  surface.  Pertinent  tabular  inputs  for  this  vehicle  type  include: 

CM  =  f(CL,  6e,  9 j ,  Vx) 

XyyCG  = 

Distance  from  CG  to  a ft  wheel  =  f(m) 

Fixed  inputs  concerned  with  this  type  of  vehicle  are  LR,  LRA,  LRF,  DELTAE, 

VSTARR,  MAC,  SEGMENT,  IYYCG,  XCG,  YCG,  DELMAX  and  ALPHMIN .  Examination  of 
the  above  data,  by  considering  the  descriptions  made  in  Table  I  and  Appendix 
A,  will  clearly  illustrate  the  options  available  for  this  type  of  vehicle. 

If  a  Harrier  type  vehicle  is  to  be  considered,  the  previously  mentioned 
input  can  be  ignored. 

By  viewing  the  form  of  the  remaining  tabular  and  fixed  input,  in  Table  I 
and  Appendix  A,  it  is  seen  that  a  wide  variety  of  pilot  techniques  can  be 
approximated.  This  is  because  any  continuous  or  discontinuous  tabular  aero¬ 
dynamic  or  propulsion  function  can  be  fitted.  In  addition,  a  large  variety 
of  fixed  input  switches  are  available  for  duplication  of  aircraft  rotation 
and  thrust  deflection  at  any  prescribed  airspeed. 

The  following  comments  offer  some  additional  options  that  can  be  implemented 
for  a  Harrier  type  vehicle. 

1.  If  a  series  of  data  cases  are  to  be  run,  put  the  additional  aircraft 
weights  or  velocities  in  ascending  order.  Set  RUN  not  equal  to  zero  for 
interpolated  weight  or  set  RUN  and  PSINT  not  equal  to  zero  for  interpolated 
pitch  speed. 

2.  Apply  variables  RS,  ALPHARR,  ALPHAAR,  ALPHA,  PHI2,  PHI2AR,  and  PS 
for  desired  rotation  method.  For  the  fore  engine  nozzle  variation  applv  RSF, 

PHI1 ,  PHI1AR,  PHI1RR  accordingly. 

3.  Set  NOEDRAG  not  equal  to  zero  and  NOSTORE  not  equal  to  zero  if  engine 
related  drags  and  store  drags  exist  in  reference  table  33  (nos.  1  and  2)  (see 
Appendix  A) .  Set  NODOEI  not  equal  to  zero  if  engine  out  drag  exists  in  reference 
table  33  (no.  3). 

4.  For  OEI  at  brake  release,  read  in  NEF  =  NEA  =  0.5  or  any  appropriate 
scale  down,  or  put  in  single  engine  tabular  data  inputs  and  add  failed  engine 
drag  in  store  drag  (reference  table  33  (no.  2)).  For  OEI  at  liftoff,  set 
EFAILA  not  equal  to  zero  and  0EIL0SF  to  an  appropriate  front  engine  scale  down 
value  and  add  failed  engine  drag  as  additional  drag  (reference  table  33  (no.  3)). 
Set  OEITAB  not  equal  to  zero  for  OEI  at  liftoff  when  thrust,  fuel  flow,  and 
drags  (engine  related  and  external  store)  for  one  engine  out  are  supplied  in 
tabular  form  (reference  table  10,  11,  and  33  (nos.  3  and  4)).  Put  in  RAM  for 

a  constant  ram  drag  scale  down  during  OEI. 
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5.  For  dynamic  R/C  constraint,  put  in  ROC  limit.  Set  PHONY  not  equal 
to  zero  when  instantaneous  R/C  is  desired  (fore  and  aft  nozzle  angles  and  air¬ 
craft  pitch  angle  are  set  to  maximum  values  for  instantaneous  R/C  calculation). 

Set  SINKD  to  bow  height  for  sink  calculations.  (If  PS,  RS,  and  RSF  have  not 
been  reached  at  SINKD,  these  variables  will  be  set  to  the  airspeed  at  SINKD). 

NOTE:  rate  of  climb  and  sink  estimates  assume  that  the  horizontal  velocity  is 
much  greater  than  the  vertical  velocity. 
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FIGURE  1.  Force  Diagram  (^Greur\A  Run) 
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TABLE  I 

FIXED  INPUT  VARIABLE  LIST 


Variable 

Name 

Description 

Units 

Default 

Value 

ALPHA 

Initial  angle  of  attack  (for  C^-a  curve) 

deg. 

— 

ALPHAAR 

Pitch  angle  after  rotation 

deg. 

0.0 

ALPHARR 

Pitch  up  rotation  rate 

deg/sec 

0.0 

ALPHMIN 

Maximum  angle  of  attack  before  auto  rotation 
control  attempted 

deg 

0.0 

ALT 

Field  altitude 

m.  or  ft. 

0.0 

ANGFRL 

Initial  fuselage  reference  line  angle  (for 
engine  reference) 

deg 

0.0 

DELMAX 

Maximum  control  surface  deflection  angle 
(maximum  6e) 

deg 

DELTAE 

Initial  control  surface  deflection  angle 

deg 

0.0 

DISTMAX 

Abort  run  if  this  takeoff  distance  is  exceeded 

m.  or  ft. 

106 

DT 

Time  integration  increment 

sec. 

.05 

EDATUM 

Engine  datum  (with  respect  to  fuselage 
reference  line) 

deg 

0.0 

EFAILA 

If  i4  zero,  failure  of  one  engine  assumed  at 
liftoff 

0.0 

El 

If  f  zero,  two  thrust  vectors  are  present 

0.0 

FLDTEMP 

Field  ambient  temperature 

°C  or  °F 

59. 

IPRINT 

If  #  zero,  a  time  history  of  parameters  will 
be  printed 

0 

IYYCG 

Constant  aircraft  moment  of  inertia 

kg-m^  or 

LR 

Vertical  distance  from  center  of  gravity  (CG) 
to  ground 

slug-ft2 

m.  or  ft. 

LRA 

Horizontaol  distance  from  CG  to  aft  wheel 

m.  or  ft. 

— 

LRF 

Horizontal  distance  from  CG  to  fore  wheel 

m.  or  ft. 

— 

MAC 

Mean  aerodynamic  chord 

m.  or  ft. 

METRIC 

If  #  zero,  metric  units  present 

0 

MU 

Wheel  friction  coefficient 

.02 

NEA 

Number  of  lift  cruise  engines 

— 

1. 

NEF 

Number  of  lift  engines 

1. 

NODOEI 

If  t  zero,  tabular  engine  out  drag  present 

— 

0 

NOEDRAG 

If  j4  zero,  tabular  throttle  dependent  drag 
present  (includes  ram  drag) 

TO  — 

0 

NOSTORE 

If  i4  zero,  tabular  external  store  drag  data 
present 

______ 

0 

NPRINT 

If  j4  zero,  tabular  input  will  be  printed 

— 

0 

OEILOSF 

Lift  engine  scale  down  when  OEI  occurs 

.0 

OEITAB 

If  i4  zero,  OEI  at  liftoff  assumed  with 
tabular  OEI  data  present 

0. 

PHI1 

Initial  lift  engine  jet  nozzle  angle  (with 
respect  to  engine  datum) 

deg 

0.0 

PHI1AR 

Lift  engine  nozzle  angle  after  rotation 

deg 

0.0 
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TABLE  I 
(Continued) 

FIXED  INPUT  VARIABLE  LIST 


Variable 

Name 

Description 

Units 

Default 

Value 

PHI1RR 

Lift  engine  nozzle  rotation  rate 

deg/sec 

0.0 

PHI  2 

Initial  lift  cruise  engine  jet  nozzle 
angle  (with  respect  to  engine  datum) 

deg 

0.0 

PHI2AR 

Lift  cruise  engine  nozzle  angle  after 
rotation 

deg 

0.0 

PHI2RR 

Lift  cruise  nozzle  rotation  rate 

deg/ sec 

0.0 

PHONY 

If  zero,  instantaneous  R/C  is 
calculated 

____  __ 

0.0 

PS 

Pitch  up  aircraft  speed 

m/sec  or 

PSINT 

If  j4  zero,  and  RUN  #  zero,  will  give 
interpolated  pitch  up  speed 

ft/sec 

0.0 

0.0 

RAM 

Ram  drag  scale  factor  for  OEI;  if 
default  value  selected,  tabular  OEI  ram 
drag  is  used 

1. 

RDSCALE 

Tabular  ram  drag  scale  factor 

1. 

REVTIME 

Engine  speed  up  time 

sec 

0.0 

ROC 

If  #  zero,  dynamic  liftoff  characteristics 

m/sec  or 

at  this  R/C  will  be  given 

ft/ sec 

0.0 

RS 

Airspeed  which  initiation  of  lift  cruise 

m/sec  or 

engine  nozzle  rotation  occurs 

ft/sec 

0.0 

RSF 

Airspeed  which  initiation  of  lift  engine 

m/sec  or 

nozzle  rotation  occurs 

ft /sec 

0.0 

RUN 

IF  +  zero,  STO  distance  to  determine 
interpolated  TOW 

m  or  ft 

0.0 

S 

Wing  area 

m2  of  ft^ 

— 

SEGMENT 

If  default  value  used,  no  pitching  moment 
estimation  is  entered  in  calculations;  if  « 
1,  auto  rotation  included  in  estimates; 
and  if  -  2,  elevator  correction  to  auto 
rotation  applied 

0 

SINKD 

If  #  zero,  this  is  bow  distance  for  sink 
calculations 

m  or  ft 

0.0 

VSTARR 

Maximum  velocity  before  which  a  constant 
linear  extrapolation  of  aerodynamic 
tabular  data  occurs 

m/sec  or 
ft/sec 

0.0 

W 

Aircraft  mass 

kg  or  lb 

— 

WOD 

Wind  over  deck  (+  for  headwind,  -  for 

m/sec  or 

tailwind) 

ft/sec 

0.0 

XCG 

Constant  horizontal  distance  from  CG  to 
main  gear  wheel  (presumes  no  tabular  CG 
locations  inputting) 

m  or  ft 

YCG 

Constant  vertical  distance  from  CG  to  main 
gear  wheel  (supposes  no  tabular  CG  locations 
inputted) 

m  or  ft 
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APPENDIX  A 
TABULAR  INPUTS 

A  list  of  the  tabular  data  inputs  is  presented  in  graphical  form, 
example  of  this  data  in  numerical  form  can  be  found  in  Appendix  B  and 
reference  (a). 


An 
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Table  Reference  No.  17 
CM=f(CL,  Og,  Vx) 


Vxl (m/sec  or  ft/sec) 
e^fdeg) 


CL 


FIGURE  A5.  Moment  Coefficient  Tabular  Input 
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Table  Reference  No.  30 
IyyCG=f(m) 


m  (kg  or  lb) 


FIGURE  A6.  Moment  of  Inertia  Tabular  Input 
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Table  Reference  No.  15 
AL,  AD  =  f  (9 j  ) 
fG  fG 


9 j (deg) 


FIGURE  A7.  Induced  Lift  and  Drag  Tabular  Input 
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Reference  Table  No.  31 
XCG>  yCG  b  f(m) 


m  (kg  or  lb) 


FIGURE  A9.  Center  of  Gravity  Location  Tabular  Input 
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Reference  Table  No.  12 

Fgloss/Fg  -  f(©j.  ENGINE  TYPE) 

(No  nozzle  deflection) 


9j (deg) 


FIGURE  A10.  Gross  Thrust  Loss  Tabular  Input 
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APPENDIX  B 
EXAMPLE  CASE 

An  example  card  deck  and  printout  is  presented.  The  required  programs, 
supporting  subroutines,  and  control  cards  to  execute  this  program  with  any 
charge  number  under  the  NAVAIRDEVCEN  KRONOS  2.1  operating  system  is  illustrated. 
An  explanation  of  the  sample  case  is  also  presented. 
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Example  Case 


Card  Deck 

An  example  card  deck  listing,  similar  in  form  to  the  arrangement  illus¬ 
trated  in  Figure  2,  is  presented.  As  shown,  three  cases  are  to  be  run  and 
they  require  less  than  50,000  octal  central  memory  core  and  ten  octal  seconds 
central  processor  unit  time. 

For  the  first  case  an  aircraft,  with  a  wing  area  of  430  square  feet,  is 
initially  resting  on  the  ground  with  a  wing  angle  of  attack  and  fuselage 
reference  line  at  negative  five  degrees  from  the  horizontal.  The  lift  engine 
nozzle  angle  is  set  at  45  degrees  while  the  cruise  engine  nozzle  angle  is 
set  at  five  degrees.  Both  nozzle  angles  are  with  respect  to  the  fuselage 
reference  line  (or  to  the  engine  datum  line  for  the  cruise  engines) .  On 
examining  the  initial  case's  fixed  inputs,  at  an  airspeed  of  66  ft/sec  the 
vehicle  will  rotate  its  lift  engine  nozzles  to  75  degrees  at  a  rate  of  15 
degrees/sec  and  it  will  rotate  its  cruise  engine  nozzles  to  54  degrees  also 
at  15  deg/sec.  At  an  airspeed  of  80  ft/sec  the  aircraft  will  pitch  up  to  13 
degrees  at  5.9  deg/sec.  This  vehicle  weighs  40,000  lbs.  Additional  fixed 
inputs  state  that  the  vehicle  has  a  tabular  ram  drag  input  (NOEDRAG) ,  two 
thrust  vectors  are  present  (El),  and  the  analysis  is  for  a  90°F  day  (FLDTEMP) . 
The  default  value  of  METRIC  causes  English  units  to  be  used.  If  the  deck 
run  exceeds  750  feet  the  case  runs  will  be  terminated.  The  variables  RUN  and 
PSINT  are  used,  in  combination,  to  interpolate  or  extrapolate  the  case  values 
of  PS.  This  is  to  determine  the  appropriate  value  of  this  variable  for  a  deck 
run  of  400  feet.  The  variable  SINKD  specifies  the  carrier  bow  length  and 
signals  for  sink  calculations  to  be  done  for  this  case.  The  IPRINT  parameter 
indicates  that  a  time  history  of  pertinent  parameters  for  this  specific  case 
will  be  printed. 

Example  tabular  data  includes  versus  a,  drag  polars,  engine  thrusts, 
ram  drag,  and  induced  aerodynamics.  The  table  numbers  used  for  each  table  are 
predetermined  as  outlined  in  Appendix  A.  Notice  that  omitted  input,  such  as 
fuel  flow  data,  is  assumed  to  be  zero  by  the  program. 

The  second  and  third  fixed  input  cases  switch  off  the  sink  calculations 
and  the  time  history  printout  and  change  the  lift  and  cruise  nozzle  rotation 
initiation  airspeeds.  These  additional  cases  also  change  the  airspeed  in 
which  the  vehicle  begins  pitching  up.  Note  that  a  maximum  of  one  card  is 
permitted  for  each  additional  case.  For  the  additional  cases  a  value  for  ROC 
causes  dynamic  rate  of  climb  calculations  to  be  made. 
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Printout 

The  computer  printout  of  the  previously  mentioned  card  deck  is  now 
presented.  On  the  second  page  of  the  printout  a  loader  map  illustrating  all 
the  supporting  subroutines  and  their  individual  core  requirements  is  presented. 
On  the  bottom  of  this  page  the  fixed  inputs  for  the  first  case  are  shown.  The 
variable  NPRINT  enables  the  tabular  input  to  be  printed  in  full  on  the  follow¬ 
ing  five  successive  pages.  This  data,  in  turn,  is  followed  by  a  summary  of 
core  requirements  for  each  table.  Next,  the  output  data  begins  with  a  time 
history  of  the  first  of  three  sample  cases.  Each  element  is  a  successive  point 
in  a  time  variance  of  parameters.  These  parameters  include: 

W  -  Aircraft  mass  (kg  or  lb)  (English  units  for  this  example) 

V  -  Vehicle  airspeed  (m/sec  or  ft/sec) 

L  -  Lift  force  (N  or  lbf) 

DR  -  Drag  force  (N  or  lbf) 

RF  -  Nose  gear  reaction  force  (N  or  lbf)  (not  used  in  this  example) 

EDRG  -  Engine  related  drags  (N  or  lbf) 

FN2  -  Cruise  engines  gross  thrust  (N  or  lbf) 

PH2I  -  Cruise  engine  nozzle  angle  (deg) 

ALPHA  -  Angle  of  attack  (deg) 

T  -  Time  (sec) 

D2  -  Distance  (m  or  ft) 

BALANCE  -  Lifting  forces  minus  weight  (N  or  lbf) 

PH1I  -  Lift  engine  nozzle  angle  (deg) 

FN1  -  Lift  engines  gross  thrust  (N  or  lbf) 

Cl  -  Lift  coefficient 
CD  -  Drag  coefficient 

C^  -  Pitching  moment  coefficient  (not  used  this  example) 

A/G  -  Normalized  longitudinal  acceleration 
RHO  -  Atmospheric  density  (kg/m3  or  slug/ft^) 

DELTAE  -  Control  surface  deflection  angle  (deg)  (not  used  this  example) 

The  following  parameters  were  not  printed  in  this  listing  because  they  were 
not  used  for  this  example  case. 

DALPHAD  -  Angle  of  attack  increment  caused  by  auto  rotation  (deg) 

IYYCG  -  Lateral  aircraft  moment  of  inertia  (kg-m2  or  slug-ft2) 

XCG  -  Horizontal  distance  from  CG  to  main  gear  wheel  (m  or  ft) 

YCG  -  Vertical  distance  from  CG  to  main  gear  wheel  (m  or  ft) 

N  -  Iteration  number  for  elevator  correction  to  counter  auto  rotation 
RF  -  Nose  gear  reaction  force  during  iteration  (N  or  lbf) 

DELTAE  -  Control  surface  deflection  during  iteration  (deg) 

The  following  parameters  are  printed  if  dynamic  rate  of  climb  calculations  are 
made.  These  parameters  are  printed  only  after  liftoff. 

ROC  -  Dynamic  rate  of  climb  (m/sec  or  ft/sec) 

ACCY  -  Vertical  dynamic  acceleration  (m/sec^  or  ft/sec^) 

Finally,  the  following  parameters  (which  are  used  for  this  example  case)  are 
printed  after  liftoff  when  sink  calculations  are  made. 

ASINK  -  Sink  acceleration  (m/sec^  or  ft/sec^)  (sink  calculations  cease 
when  this  value  becomes  zero) 
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VSINK  -  Sink  velocity  (m /sec  or  ft/sec) 

DSINK  -  Sink  distance  (m  or  ft) 

The  time  history  printout  concludes  on  the  following  page  of  output.  After 
liftoff  the  appropriate  sink  parameters  are  shown.  After  the  time  history  the 
final  liftoff  parameters  are  presented.  These  parameters  include  maximum  sink 
height  and  time,  distance,  and  airspeed  at  that  sink  height  condition.  Other 
characteristics  at  this  condition  include  lift,  drag,  horizontal  acceleration, 
gross  thrust,  and  vertical  gross  thrust. 

Since  the  IPRINT  was  switched  off  for  the  two  additional  cases  no  time 
history  is  printed.  These  cases  were  done  with  dynamic  rate  of  climb  calculations 
so  instead  of  sink  parameters  the  prescribed  rate  of  climb  along  with  the  ver¬ 
tical  height  when  this  rate  of  climb  is  achieved  is  printed. 

After  all  the  cases  are  determined  an  extrapolation  is  made  to  estimate 
the  pitchup  airspeed  and  horizontal  acceleration  for  a  deck  run  of  400  feet. 


B-6 


NADC-81259-60 


T 


] 


KOONOS  2.1.1-107  01/03/30. 

operating  ststfm 

JO*  OM*|N  *  £1200. 


TTTTTTTTTTTT 

EEEEEEEEEEEE 

ssssssssss 

TTTTTTTTTTTT 

4 

VV 

vv 

ITT  TTTTTTTTT 

EEEEEEEEEEEE 

sssssssss^ss 

TTTTTTTTTTTT 

vv 

vv 

TT 

EE 

ss  s 

TT 

AA 

AA 

VV 

vv 

TT 

EE 

ss 

TT 

A  A 

AA 

vv 

vv 

TT 

EE 

ss 

TT 

A  A 

AA 

vv 

vv 

TT 

EE 

ss 

TT 

A  A 

AA 

vv 

vv 

TT 

EE 

ss 

TT 

AA 

AA 

vv 

vv 

TT 

EEEEEEEE 

sssssssssss 

TT 

AA 

AA 

vv 

vv 

TT 

EEEEEEFE 

sssssssssss 

TT 

vv 

vv 

TT 

EE 

ss 

rr 

I44A444444 

vv 

vv 

TT 

EE 

ss 

TT 

AA 

AA 

vv 

vv 

TT 

EE 

ss 

TT 

AA 

AA 

vv 

vv 

TT 

EE 

ss 

TT 

AA 

AA 

V 

V 

TT 

EE 

s  ss 

TT 

AA 

AA 

WvV 

TT 

EEEEEEEEEEEE 

ssssssssssss 

TT 

AA 

AA 

WyV 

TT 

EEEEEEFEEEEE 

ssssssssss 

TT 

AA 

AA 

w 

ai/09/?«. 

14.54.07. 

tummtn 

imitutiii 


imtniiiu 

miltlMTM 


) 


IM 


iMI 


|M| 


B-7 


NADC-81259-60 


LOAO  mar  -  STO 


CYHErf  LOADER  |.<#-4ftS 


*1/09/28.  14.54.01. 


F*A  or  TH£  LOAO  1  1  I 

L  ■  A*  1  nr  T»-e  LOAC  32715 

transfer  acdress  —  sto 


6206 


PROGRAM  Entry  POINTS  —  CTO 


6?0  6 


PROGRAM  ANC  RtOCK  ASSIGNMENTS. 


QLOCK 

adore ss 

LENGTH 

FILE 

OATE 

PROCSSR 

LEVEL 

HAROMAPF 

/PRINT/ 

111 

l 

STO 

112 

11662 

LGO 

78/01/0 

FTN 

3.0 

P30O 

6666 

/Tsur/ 

11774 

5671 

TAKES 

17465 

1353 

UL-VTL 192 

77/03/0 

FTN 

3.0 

0380 

6666 

splnoi 

21240 

504 

UL-VTL 192 

77/10/1 

FTN 

3.0 

P380 

6666 

UPDATE 

21744 

135 

UL-VTLI«2 

75/07/1 

FTN 

3.0 

P380 

6666 

ATMOS 

22101 

213 

JL-VTLIR2 

76/10/2 

FTN 

3.0 

P  380 

6666 

SNEST 

223U 

no 

JI-MTLI02 

7S/06/I 

FTN 

3.0 

P380 

6666 

SYSTEM? 

22424 

10  35 

S|  -FTN3LI8 

AQ/09/02 

COMPASS 

3.6 

4  05 

ACGOERS 

23461 

13 

SL-FTNU  19 

*0/09/0? 

COMPASS 

3.6 

**05 

flACKSPS 

23474 

334 

$L“f TN3L  lb 

*6/09/02 

COMPASS 

3.6 

485 

IFENOFA 

24030 

57 

SL-ETN3LI9 

*0/09/02 

COMPASS 

3.6 

405 

INPUTC* 

24107 

131 

SL-FTN3LIO 

*0/09/02 

COMPASS 

3.6 

4  85 

INPUTNS 

24240 

1171 

Sl-E TN3L 18 

*0/09/02 

COMPASS 

3.6 

485 

OUTPTCS 

25431 

74 

5L -FTN3L  1 0 

*0/09/02 

COMPASS 

3.6 

485 

RE-INMS 

25525 

52 

SL-f Tn3L  10 

*0/09/02 

COMPASS 

3.6 

485 

EXPE 

25577 

44 

SL-FTN3LI0 

*0/09/0? 

COMPASS 

3.6 

405 

SINCOSE 

25643 

55 

SL-f TN3L Itt 

*0/09/02 

COMPASS 

3.6 

485 

SORTE 

25720 

22 

SL-ETN3L IS 

80/09/0? 

COMPASS 

3.6 

485 

<T0YE 

25742 

7 

SL-FTN3LIB 

*0/09/02 

COMPASS 

3.6 

485 

K0DEOS 

25751 

1422 

SL-ETN3LI9 

*0/09/02 

COMPASS 

3.6 

485 

kr akers 

27373 

1525 

SL-fTN3Lie 

*0/09/02 

COMPASS 

3.6 

485 

ALNLOGE 

31120 

37 

SL-^TN3LIB 

*0/09/02 

COMPASS 

3.6 

485 

C.ET0A 

31157 

17 

3i -FTN3L I 9 

*0/09/0 

SIO& 

31176 

1517 

SL-FTN3LI6 

*0/09/0 

COMMENTS 


.106  co  seconos 


1 

467000  rM  STORAGE  uaEO 


table  NQVES 


SOATA  ALP"Aa*5*S*4?9.PHt2><.0»r2ARaS4«PMl?OP>lS t AL t m APR«5 , O , ALPmAAR*! 3, 
A'iCrpL  »•*  *  NOf  ORAf.a  J  »f|t|  *FL  OTFMPaRfl  .kMJ  J  »«•  *5  •  D  |  S  T  Mj»  **  75  J  #  PN  11  AM  a  75  • 

°M|  10Ra|S*M$a64«0$artO.Q5r  a66«W*«*OQOO*  I  OR  f N  T  » |  «H*!>  1  N  T  *  1  *RmN*400« 
SrS«Oa200*».?°TNTal  . 
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Lm 

E*A«Ptt  CL 

VS. 

o«A  TA3LE 

V6L  * 

•  0 

PHI£, 

.0 

CLT6- 

.o 

ALPH 

-.800006*01 

-.400006*01 

CL 

-,«.floooc*oo 

-•1 75006*00 

V6L  » 

.0 

PhI2* 

•500006  *0? 

CLT6* 

.0 

AL°H 

-.eoooo6*oi 

-.400006*01 

CL 

•  *  1 30006*00 

.150006*00 

VEL  * 

.0 

PhI2» 

.000006*02 

CLTE* 

%o 

ALPH 

“ .000006  *0  l 

-.400006*01 

CL 

.340006*00 

.500006*00 

N’ADC-81259-60 


,0 

.400006*01 

•  A00006  *0 1 

•120006*02 

•  1*0006*02 

•200006*02 

1 7500E*00 

.450006*00 

.780006*00 

•104006*01 

.137506*01 

.144006*01 

0 

•400006*01 

.800006*01 

.120006*0 2 

.160006*02 

.200006*02 

420006*00 

.600006*00 

.060006*00 

.120006*01 

•145006*01 

.157006*01 

0 

.400006*01 

.800006*01 

.120006*02 

.160006*02 

.200 006*02 

860006*00 

•  1  1  1006*01 

.134006*01 

.147006*01 

.156006.01 

.155006*01 

) 
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13  e«AN»Le  ocAr,  polaas  icoica  off i  lAste 


OUMMi 

•  0 

PHra» 

.0 

CUTE* 

.0 

CL 

• *“00006  *00 

.0 

*400006*00 

. 600006*00 

.120006*01 

•140006*01 

CO 

.‘•1S<J0C-01 

,29 3606-01 

*3T4?0E-0l 

.853306-01 

.174636*00 

•22q05C*00 
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10 

c «  ample 

engine 

TwpuST  TAHLE 

DUMM- 

.0 

TIME* 

.0 

SET  * 

•  1 0 OOOE  *0  1 

MACH 

.0 

FG 

,13?S5e*05 

OUMM» 

•  0 

Time- 

.0 

SET  * 

•20000E*0! 

“ACh 

•  0 

EG 

,?94»i7E*0S 

OUMM- 

.0 

TIME- 

.0 

SET  ■ 

•  30000E  *0  l 

MACH 

.0 

EG 

*oS 

DUmm* 

.0 

TI«E* 

•  0 

SET  - 

.aooooc*oi 

“ACH 

•  0 

EG 

.23T*!AC*0S 

.50000E-01 

•icoooe *00 

•lSOOOE'OO 

.  1 4Q44£ ♦ OS 

•  U312E*0S 

.1<.*7SE“0S 

.S0000E-G | 

. 10000E*00 

.  ISOOOC'OO 

2<*qM8E*0S 

•  30«53HE*0S 

•  3I«>06E*05 

,S00006-01 

•  1  0000E  *00 

.l*>000E*0O 

> 1 1 330E  *05 

•ll**S€  *0S 

.123*2E»0S 

50000E-01 

•  10000E  *00 

•  1 50  0  0E  *00 

2a3m<,E*OS 

.2«*Q58E*0S 

.26H>1E*«5 

. 20000E  *00 
■  ISA 1 7E  *05 


•20000E  *00 
• 32673C*05 


.20000£*00 
•  l 30 1 8E  *0S 


•  200  OOE *  00 
•273fe3E*05 
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33 

example 

Qam  n«tA# 

TAdLE 

DUM“* 

.0 

Tl«E* 

.0 

SET  • 

•  1  OOOQC  *0 1 

“AC* 

.0 

•SOOOOE-QI 

•  10000E*00 

.  15000E-00 

•  0 

RAmO 

•  0 

•  3<>HbOE*OA 

*tji?3or  *o«* 

•  U240E*OS 

TIME* 

•  0 

SET  - 

•  "TOOOOE  *0 1 

“AC* 

.0 

-5000  0E-0  J 

*  l  00 OQE  * 00 

•  isoooe*oo 

3  AMO 

.0 

•3A6?OE»OA 

»793!OE*Om 

•  1 2023E  *0S 

• 20000E ♦OO 
.i66eie*o5 


•?ooooc«oo 

•  Jb<*86E*0S 
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15  £I»»PLE  INduCED  4£«00YNJN|CS  T  4n(.£ 


OU“x»  .0 


Y  a 

•  0 

SET  » 

• l Q000E*0 i 

CHI? 

.0 

•  SOOOOE  *02 

CEL 

•?0000E*0 1 

•  12000E  *00 

OUMM* 

•  0 

r  » 

.0 

SET  » 

•?OOOOE»Ol 

P«I2 

•  ?0300E  *02 

.44,SOOE*02 

CEL 

-.seoooE-oi 

••31000E-01 

. 1Q000£"03 
•  2UOO£«00 


.a<.?00£*02 

•%2000E-0 1 


■N 


NADC-81259-60 


TABLE 

DATA  input 

SU***AQr 

S  tables 

TABLE  NUM4E* 

acrroENce 

nijmbEp 

APnAY  LOCATION 

1 

10. 

^ir. 

z 

13. 

I7ft. 

3 

14. 

01. 

«• 

IS. 

373. 

5 

33. 

3)6. 

0»T»  ctOR»fi£  «LLOC‘TIOn  3000 
0»T*  STOfUfif  NOT  ijS£D  2<>82 


NADC-81259-60 


vstqc  TiKerrp  pfbfopmance  estimation 


e«A«*LE  CASE 


TOG*  *  ,<»ooooe*os 

INITIAL  Ground  »UN  papahCTE^S 


*.V.L*0».»F.£0OA.FN? 

PH?I ,AL°hA.T. 0?, BALANCE. PHi I. F^l 
CL  *CO*CN» A/G.PhO.OCLT  AC 
ALP^A.OALO^AO*  lYYCO.XCr.rCG 

n.pf.oeltae 

POC.ACCV 

ASlNA*VSlNH*r*SlNK 


.400006  *05 

.843706*01 

•  1 303?E  *0** 

•  ,2k<>o<>e>o* 

Hill 

•  5781 OE  *03 

.295186*05 

.sooooc*gi 

-.SOOO06*O1 

.  250006 *00 

•  iwafoi 

.298aBE»0S 

.450006  *02 

. 1 37906  *05 

-.230196*00 

•33947E-01 

mu 

.IOftS3E>01 

.liwe-o? 

•  0 

.*****♦♦*♦♦*♦♦**♦♦****♦♦*•♦♦♦♦♦♦♦♦♦♦*♦*♦***♦♦♦♦♦♦**♦**♦♦♦♦♦♦ 

•  **000  OE  *05 

.163326*02 

•  12832r  *0<* 

-,la7IoE*0A 

urn 

.wsiac*o* 

.29599f.05 

•  S00006  *0 1 

• .500  00E  *0 1 

.SOOOOf *00 

•5121SC *0  1 

.298216*05 

•ASOOOE«02 

.138406*05 

-.230896*00 

.33*3476-01 

mu 

.103696*01 

.224296-02 

•  0 

♦♦♦♦♦^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦44******^**********4*******+**************4*****4**4***************4« 

.400006*05 

.251866*02 

•  12479£  *0** 

-.130426*04 

mu 

•  J  72216*04 

.298796*05 

•500006*01 

-.500006*01 

.7SOOOF  *00 

.107976  *02 

.296296*05 

.450001*02 

•  1 3802F  *05 

-.230896*00 

•339476-01 

mu 

•  1 02S5E  *0 1 

.224296-02 

.0 

.400006*05 
. 50000E*0 1 
-.230896*00 

•  33*»986*02 
500006*01 
•335476-01 

•1 I980F *04 
•  1 00006  *01 
mil 

-.736856.03 

.165326*02 

•101416*01 

urn 

.298526*05 

.224296-02 

.229006*04 
.450006*02 
•  0 

.247576*05 

•139236*05 

.**00001*05 
•  50000E  *0 1 
-.230896*00 

•  *»  15  1 8E  *02 
-•50000E*0  1 
.335476-01 

•  U339f  .04 
.125006*01 

mil 

-.168416*03 

.283046*02 

•100266*01 

urn 

.293906*05 

•224296-02 

•285636*04 

.450006*02 

.0 

.29835**05 

.139646*05 

•  **0000£*GS 

.sooooe*oi 

-.2308*6*00 

.4O5**5E*02 
-.500006*0  1 
.335476-01 

•  105^06.0*. 
.150006*01 

mu 

•  •.0027E.03 
,400396*02 
.491026*00 

mil 

.299426*05 

.224296-02 

.342166*04 
.450006*02 
•  0 

•  299126  *0* 
.140046*05 

•  *»0000E*05 

•  50000E  *0  1 
-.230896*00 

•  57<.74E*02 
••500006*01 
.334*.  76-01 

. 9*)50?6*03 
.175006*01 
Mill 

.471336*03 
.538656*02 
. *79386*00 

mu 

•300036*05 

.224296-02 

.398696*04 
.450006*02 
•  0 

•299033*05 
. 1*0446*05 

.*.00006*05 
•  SOOOOE  *0  1 
-*230*96  *00 

.65^1 46*02 
••500006*01 
.319476*01 

.Aoi 1 |r *03 
•200006*01 
mu 

•  15*4226*04 
•646031.02 

•  46  7556  * 00 

mu 

•  100*06*05 
.224296-02 

.454966*04 

.450006*02 
•  0 

•30059f .05 
•140816*05 

.<•00006  *05 
•87500£*01 
••21  |i»  1C  *00 

.7300*6*02 

••500006*0» 

•314056*01 

•  l  1  3**26*04 

•  225006  *0 1 

If  III 

.2231 16*04 
.H 723 76 *02 
. >37036.00 

mu 

.271156*05 

.224296-02 

.510256*04 

.487506*02 

.0 

.301236*05 

.l4||56*05 

.*•00006*05 
•  12500C  *02 
-•  lotf*1E*00 

•604346*02 
-.470506*01 
•  320**4£-01 

.  I**4  17r  •  04 
.250006*01 
Mill 

.2*01 76*04 
•  106846*0  3 
.900896*00 

mu 

.234  136*05 
.224296-02 

.563766*04 
.525006*02 
•  0 

•30183* *05 
•  1 4 1476  *05 

•  **0000r*05 
.182506  *02 

•  **  7«^5F  *02 
-..IP^OOF.OI 

•223 32r *04 
.275006*01 

.  1-»44|E  *04 
•  *0  1 

Mill 

.6 1 48  76  *04 

,*62snr .12 

. 30242*  *05 
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-•  J<*66*t-0i 

.•*aooo£*<js  .R^jose^oz 

.2QO0QE*02  -*175$0E*01 

•141*26*00  *29p|7E-01 

.400006  *05  «  1  0*3396*03 

•  2375QE  *02  -.280006*00 

.232R* e*oo  .*24«te*oi 

.<*00006*05  «lQ*0ue*0J 

.27500£*02  .110506*01 

.3SS22E*00  .363596-01 

*44*****4444*4*4****4*********44* 

A  .545566*01 

.<•00006*05  ,imic«d3 

.312506*02  .2*7006*01 

.474946*00  .384216-01 

♦***444444A*4****4****444**4*4k** 

A  *2161R£*01 

VEHICLE  IS  AI^QOflNE 
MAXIMUM  SIN*  OISTANCE  is 
DISTANCE  -  .252166*03 

VELOCITY  •  .115536*03 

TIME  *  . 400006*01 

END  *Et*HT  FOP  THIS  PH*S6  ts 


.31  384C*/»4 

.300006*01 
VI  Ml 

.41 7586*04 

.325006*01 

frill 

44«***44*4+**4*4** 

.531  )4f  *0<* 

. 350006  *01 

inn 

.555426*04 

,375006*01 

mil 


.415626*00  FT, 
FT. 

FT. /SEC. 

sec. 

.**00006  *05 


.<*16546*04 

.151256*03 
.  794636*00 


I  l  ill 
.152936*05 
.224296-02 


.*77226*04 

.175696*03 

.  7304»E*0U 
.********•*4*4. •* 

.*3*596*04 
.201996*03 
.9S9306 *00 

>44*44444*4**4444 

»  1 36  396*00 
.S9320E*04 
.229396*03 
083216*00 

*4***44*444444*44 

,  lOH^TF. *0  1 


POUNDS  MASS 


mu 

.109906*05 

.224296-02 

4*44**»4* 4* 

lift  I 
.6782*6*09 
.224296-02 


Mill 

•268766*04 

.224296-02 


4  4*4  4#< 

.662976*04  .303016*05 

.600006402  .1*20 9r.05 

•  0 

.707596404  «30362F*05 

.637506*02  .142416*05 

•  0 

. 748  306  *04  .304246*05 

.675006*02  .142736*05 

•  0 

4444*4 444444+4444+4444444444 *4*44*4444' 

34*0976-02 

.764616*04  .304866*05 

.712506*02  .143056*05 

.0 

4* 444* *44444***4444*4 *♦*♦♦♦ ♦♦**** ***44. 

172776*00 


Lirrorr  characteristics 

HORIZONTAL  acceleration  • 
LIFT  » 
pa  Ao  * 

VERTICAL  «'fiOSS  THpuST  a 

horizontal  gross  thrust  « 


•  51570E *00  GI5 
.763596*04  POUNDS  FORCE 
.635606*04  POUNDS  FO«CE 
.328636*05  PPUNOS  FORCE 
.269846*05  POUNDS  FORCE 


NEAT  neat  neat  neat  next  next  next  neat  next  next  NEXT  neat  next  next  next  NEXT  neat  neat  NEXT  NEXT  next 

SOAT a  SlNKO»0*ROC«l .n7.PS»90*OS*T6*RSF*7a.ippinT*0a 
TQGa  *  .400006*05 

|N f T f 4L  GRCUNO  P|;N  PARAMETERS 

VEHICLE  is  AIR90RNE 

VEHICLE  HAS  A  a/C  OF  *167006*01  rT./SFC. 

VEcTJCAL  HJEPHT  IS  *369216*00  FT. 

DISTANCE  ■  .3S47fcE*03  FT. 

VELOCITY  »  .130936*03  FT. /SEC. 

TIME  »  .480006*01  SEC. 

END  AEI8HT  FOR  Th(S  RmaSE  IS  .•*0600F*0*  ROUNDS  MASS  ! 


LIFTOFF  C-ARACTtRlaf TCS 

horizontal  acceleration  a 
LIFT  * 

PBA&  a 

VERTICAL  *«50SS  THwijST  a 
wCRUONTAL  tjHOSS  fw-uST  a 


.36099F.00  (-15 
.1  1  3006*05  hoi  NOS  FORCE 
,8\952F*04  -ni'NUS  FowCE 
.37?7?f*05  BOUNDS  FohCE 

,2263HF*0^  MDnNOS  FOHCC 


NflT  NEAT  N6*T  K£a7  Nf  4  T  *.£  *  T  NFtT  NF  *  T  NF I T  '•MT  N£.*T  N6A?  N£  A  T  NFAT  NF  A  T  Nf  A  T  N6*T  nE*T  NEAT  Nf*T  Nf** 
AOAtA  5lNaP*0*HDC»  I  ,A*7*a«  •!  00  •-S«M«i*a5r48A*  !PH|‘*f  a-)A 

T  0  *  <  a  *  ,-*0J0uF*0S  J 


INITIAL  'M’  v  RAv/inr  frws 
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Vf>ICLP  IS  A|wf»..C*,F 

vt-iCLt  a  mv c  or  .i»70or«oi  »T,/s»r. 

vC-IICAL  -»!Er-«T  is  #VM»5**«0v  f '  . 

distance-  *  ft, 

velocity  »  ri./sec. 

T  1M€  *  .*0S00E*<U  SFC. 

FNO  *E  1 RHT  FO«  Tfc-IS  R*asf  IS  .*»00nCE*0S  P-OUN'JS  «ASS 


L  I r 7 OFF  CHiJ*rTFc!?TU« 

hOc  I  ZOnT *L  ACCELFmAIIO^  a  ,3*<507r*0U  C-fS 

LlfT  *  ,1|639F*0S  POUNDS  FuWCt 

OOAG  *  •  86^*0  <?F  4  0<»  POUNDS  FOhCE 

vE°MC*t  GAUSS  r**<t.ST  =  .  3gv*  ir*0b  POUNDS  Fu*.ct 

HORIZONTAL  G-OS5  Th-oS1  a  .Z3**^  JE  *0**  Fu*CE 

NCiT  ME»T  K£iT  A.iiiT  SEAT  S*- >  7  NE  *7  NE*1  NfxT  NEM  NE*1  NE  XT  N£  *3  NEXT  NEXT  NEXT  Nf  *T  NEXT  NEAT  NEXT 

RY  CUBIC  $BL  I NE  INTERPOLATION  cF  ThE  ABOvf  UAlA  POINTS 

FOR  A  Mi'N  OF  .‘•OOOOE*U‘J  FEET  The  pS  IS  ,103?0E*03  cT./SEC. 

ANO  ThE  HORIZONTAL  ACCELERATION  IS  *37630E*00  GIS 
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TESTAVt.  *i-'0*/<"*.»“P'j*S  2. 1.  c25-*t»i>r. 


.51.test.chsoooo.iio. 

.Sl.lCCOOKt .ftO’JiS. . 

.51.  “ASTE*  otvtrct  <• 

,52. ST  1  *vTt  1*1  »2Tl!*?/t'’i>vl  !»«■». 
,5>.r,T«IVUlill  .Lfti'... SI.U/STO 
.30.  rrxjcfif. 

.OO.LHSfl  lUe.yti.  |o?t 
.00. LOO. 

.o«.sro p 

.0*..r0"OUTfB  UMTS  AT. 100  P  *  I . 

.0*. re  i.MO  src.  »  o.«<* 

•O-.c*  1*.J?3  K.c-. 

.0**10  l.MS  SEC*  T  O.OS 

.0**1*  IO.hto  «.0. 

.0*..TAA£S  SCHECulEP  00 
,0<..o»C»S  SC-ECUWEO  00 

.OH.SCSVICE  C~t»r,c  i  2.20 

.0*.  - 

.0*. SO6T0T*£  f  3.17 
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APPENDIX  C 
Program  Listings 

A  listing  of  the  FORTRAN  source  code  for  the  main  STO  program  and  a  four 
degree-of-freedom  interpolating  subroutine  TAKE5  is  presented. 


C-l 


NADC-81259-60 


t  a  7  S 4  *  • 


5  T  • 


7wT*  j->  r  - 1 


? 1/39/2'.  i  3.1:.  4 3  »4S:  1 


1 

:src<  *  i 

ST3 

03C1 

►  OSllt  iTO  lit#  JT,JJT»  JT.T»PH,1»PE  »-ltPJt) 

5T0 

a  3: 2 

j 

•  5TC 

0  3'.  3 

:  c  < 

e*TcJ  i *  <ms  )•*  iHU  i>7*. 

ST0 

o:-4 

* 

;•••• 

♦STO 

0  3C  v 

tin  -  1  tl.i;i»r(101.5J'.J»TM13l.tltl,4GJ»TK3J>. 

:ro 

o;cb 

•  *HJ4T«<)*| 

5  TO 

0007 

STO 

00v? 

- :  u  *«;»  t#  *.«•#(.  *4 ...  i * .  ia:  . poif  iit Li  ve*f  irr.i  rr:c- 

-TO 

a-o:* 

k- 

It  Tel:  4  $;0-r*»f 

STO 

0010 

tit 51 1'T/ttlWtl  >**• j>  3:1  tii  . \;P.  til.  tc.«.  «*£1JI  P£p3Tp 

i  ro 

OOll 

ST3 

001 1 

•  ANS»4i.»Fh0Tf49.A,.;n4l4*PHl.:.PHl244.t4{24  4.4,,.A(.PH«4«.AlPHl.l<i.Al7. 

STO 

0013 

.  <3H.cG*T  J«.N.U3410.  OU?*:.*  till*.;:  ilJ$*.S330c l*  HtTii:*  *S. *33. 

STO 

0  014 

15 

•J.II»«.lif,PtU'il.ft;m,«S[tr.;3C.CISr*»«.SI.<0.S3S:il-i.Jl«.H3triT3 

oo;? 

j:u«to  »  i jt»i jt'ini i»*»ij»T»m«ni>irn! »«o. 

STO 

3015 

n 

o.c  31t«T-'.p4lU- t  P4  l»r-K3£04  a*«>3ST3*  t« 5c  T4{;- *30  J6I-0 

STO 

001? 

rwJiiA-Fl35$5  •  3. 

STO 

001? 

3  T- • 0  9  \  <44. U 

STO 

001  9 

2C 

4-.4TI  U"4W*L*ALPkMla4*.34iG-0ST3*&  • ¥ • T • * l T • 0 ■ fel ■ W F l ■ H I i- P*I2- 

STO 

002G 

•r  tl**M»JCfC«JJ*  »  •<ST13S.£3lUt«£f*lLl«3£I«3tIL3Sf*:. 

STO 

0021 

3  3*  U3F-4SF-PHI  i4*-MU«»-PSIsT-A;UO40C-4  3C-*30-*3CH-PH3Hf-0. 

STO 

0022 

.‘’■ISO-Ltlt.P  tlJK.itUH.liHiH.  ti.  phi  11- 4  Jt«.5-  Jj  ITH-33«0, 

STO 

0023 

Sl3T£4P-54.  1  1J-.02  %  tcOie.F«l,  1  *1-1.  1  32-2.  »  3lSHiI-*.c 

6  STO 

*024 

25 

s ito-isit«»vsi t<«csi tt»c.  i  os:iu*i. 

STO 

0021 

ir( lOOUNT.Nc.OI  GO  TO  <0 

STO 

0026 

i:-i 

STO 

3J27 

20 

1  e  10  30. ICOPf 

STO 

0029 

30 

«  1<M*T(2Al,A*,74l0> 

STO 

0029 

2  C 

40 

cw44AH  l*»£4l,*3,  7*101 

STO 

0030 

!r(U'(UI  60.50 

STO 

031 ; 

53 

i:-i:m 

STO 

0  J  32 

#*  l  T E  l  4 »  30  )  ICO?  r 

STO 

03  3 1 

P*InT  4C# IC0*r 

STO 

0034 

31 

ifit:.ti.!.itj,i;j»f(ii.;i.ini  ji  u  0j 

STO 

0035 

SO  70  20 

STO 

0*36 

o ; 

07  t i  ii-;. i: 

STO 

003  7 

70 

j*C4S>*:e  o 

STO 

003$ 

*t*0  D *T 4 

STO 

0034 

40 

4s 4030. TITLE 

STO 

0  J4sj 

:ilL  r»tl'U..D.OptJ.53»fl«TI) 

STO 

0041 

P0 

Fj4l4T(P*lf  ) 

STO 

0342 

g;  to  uo 

STO 

0043 

90 

»e* 240  3 

STO 

0044 

45 

4  £*  0  (  ?  .  DAT  * ) 

ST3 

0045 

AtO  30. I C OP 7 

STO 

004ft 

ifmemi  tso.wo 

STO 

0047 

ICO 

P-»IhT  40.ICC»T 

STO 

034c 

3i:upi:c  t  i  u.o  jtn 

STO 

0344 

•f 

2  2? 

PH2J-HI2 

STO 

0050 

AlP-UJ-AlPMA 

STO 

3051 

PHJ  I»MIJ 

STO 

0352 

PHI  1-CMi  !♦*>&*  4^  »•  1.  14  1  ?  9249*/ I**. 

U3 

0  ;!  3 

IMScG^M.U.O)  00  TO  120 

STO 

00!  4 

1  5 

Lc*€1-L«1*«UU1  *  3Gt*e<«l»l*G»l 

STO 

03:  5 

1?C 

¥•¥♦*00 

STO 

0056 

im i; jo-NT.fci.G)  nut  iij.nris 

STO 

0357 

( i 


C-2 


Mb 


Mi 


V. 
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>01441  STD 


74/74  D?T«1 


f  T 1  4.6*42* 


M/04/2?.  lJ.la.^3 


1 30  f  J.M4rU‘U»//*13X#*/$T3L.  T44E3Pr  •E4FD«14.lC6  c  STI  14TI  JN*»  /•  1 01*  la  C  ST3 

0539 

STD 

0539 

6t 

ICCJ1T-0 

STD 

0565 

T15  *•  * 

STD 

0061 

44HT  ISO.* 

STO 

0562 

140  f  J/iUTUU.MDi*  .••£23.5»//*l>4* 

ST3 

0361 

•  *lHHUL  HCJSJ  4 U*»  »A64«sTS*S*W> 

STO 

3564 

69 

IP 4  UaiNT.KE.CI  >*  J*T  DO 

STO 

0563 

150  F  J444TC13ft»12C<l<St»/»13t#*rf»  tf*  L  •  04  #  4  f  »  £34  6#  f  12  •  #  /  # 

1(  1»*HJI#4L*14STD 

5066 

F.r.oi.SAiAkct.'-ui.f.,*./.!  i»e*»/»;o*»»»li>st: 

0567 

#H4O4L>H40#lfT:S.  *C5»  TCG** /»  IC«.  *4.  =  F,  QElTU*. /»  101 

•  •tac.  accm./.isto 

0069 

•  34#  *4  SISK#  VSIS<*DS14<«.  /.IJU  12U  HIM 

STO 

0569 

7C 

lFMEIt IC.iQ.C)  4lT*ALT".3341 

STO 

0070 

call  trA:s(iLr.AUA2.*J.**.*5»*i»*7»A?) 

STO 

0371 

lrM-TRi:.  SE.C)  53  TO  DO 

STO 

0072 

lLT>4Lf43.2t9n^9i 

STO 

0073 

43*43* 3.2*0639895 

STD 

0074 

75 

41* 42*2. 37696-3 

STO 

0375 

AFL0T6«*FtDT£»M*459.7 

STO 

0376 

46-46*SQ«t (4FL0T-4/51S.7) 

STO 

0077 

4l.4S*9lJ.7/AfL3r£1 

STO 

0073 

50  T 3  175 

STO 

0379 

ac 

160  AFOT61.FU0T5-44273.16 

STO 

0080 

A6-45*SORTCAFLOT£1/269. 16) 

STO 

0091 

41.41*289.16/4? LJTE- 

STO 

0082 

170  =U4TJ/*.6J4TU4*3. 141392554/1  80. 

STO 

3CS1 

5.12.1741 

STO 

0084 

95 

If <15T«IC.*E.0)  5-9.8 

STO 

0065 

G55C-1.  4  IF  (1cMlC.M-.OI  53G:*9.1 

STO 

0096 

•••♦G36C 

STO 

006  7 

J.-l  %  .4C-0.  1  CDCNT.I .25/DTW1.3E-1*  t  I-COJNT  X 

1.1*1  STO 

0568 

180  44C4.//46 

STO 

009  9 

9C 

J-J*l  4  I F (J«  Gg • 1 )  4*1 

STO 

0090 

T1U1-T  1  IMTJUl.JT.acVTUEl  T0J1.4EVTHE  STO 

0091 

*iI2-fM2l 

ST3 

3392 

IF( itGIEMT.hc.O)  50  TO  210 

STO 

0091 

:>*<<•»•  fD*6  chSINc  TD2ZLE  fAJIlTIDk 

STO 

0094 

95 

if iMii**.ca.o..j«.v.Lr.«iFi  S3  ra  i»o 

STD 

009  5 

*Hll.MH*FHU440T 

sra 

0396 

STO 

0397 

/111* l>HU*  41  6F4l)*1. 14  1592654/1 10. 

STO 

0096 

C  FDA  *1/  FOTU-U  TAlUr  1331  UP  i  L/S  E  ^-#11 

STO 

00.. 

IOC 

;♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦*♦♦*♦♦♦♦♦♦♦♦ 

STO 

3103 

190  I-l/.LT.RSI  GO  TO  200 

STD 

9101 

*Ml2.*Ml2*»Ml  24R*QT 

STO 

0102 

If  <7-112. CT.MI244I  HII.MIHI 

STO 

0103 

2C0  IFIV.6T.FS)  50  TO  210 

STO 

0104 

1C  5 

4LH»*AL7-IA«4L»H4i«A0T 

STO 

0105 

IF<  4LPHA.5T.4LFH44*)  41  *«4«  AC.  F*44  4  4 

STO 

0106 

210  Iflcl.NC.O.)  CALL  TL3J5(C11.Aa:a.  51, rJUA,3.,Af l| 

STO 

0107 

CALL  T1035(U*14;i#32.T9U1*0..9F2» 

STO 

0106 

*Fl.tfFl*"*gF*605C 

STD 

0169 

Us/ 

*F2.VF2*i€4*GD5C 

STO 

0110 

IF( sl.ME.O. )  CALL  Tl 305 (15»*AC4»51»  TDU-.g.#  Fill 

STD 

0111 

CALL  TL339(10*44C1*02.T0U1*0. *F12) 

STO 

3112 

CALL  TL 031(12** H I#l«*0.*5.#Ft3SSF) 

STD 

0113 

CALL  TLDDi<12»Hl2.2..0.,D..FLD5iA| 

STD 

0114 
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st  3 


74/74  3PT*1 


fTH  4.6*42*  91/ 09/26.  10.16.4) 


US 


12C 


12! 


13C 


135 


1*0 


145 


150 


15  5 


160 


165 


*70 


C 


c 


*n*i  f*i-*iossp**ni  >**£f 

Fh2*(F*2-FL0$S4*FH2)*H=  A 
«•••••«.  l*3tCE0  Ac*C 
FGT3TAL*FH1*C*2 

CAwL  TL335  <15. PH l  2,1.  .  J.  »  5.  ,->L?U 
Call  TL335(15,*h! 2,’. ,3..3. , OCFG) 

3LFG-3LF 6#F6T3TaL  I  00«  G* 30  F  3*F  G  7  3  f  AL 
uutummmimmimmtttmtmmmmi 
M2UFH12 

tf$TA4«l«V  l  IFIV.lT* ¥$TaU>  tf STa«4 L* VS T 44 4 

Call  TL3J5U4.4L -MA,  OwL  TA5,  P-«2t,  VST AUl.CL  » 

Call  Ti335U3.Cw.0tL  7  a=  ,  ?  <JI .  vSTaaai.CO) 

IFCSsG^FHT.NEU  \  Call  T  L  335  (1  7,  CL .  OE  LT  4e,  PH21  .  VST  A?«l,C** » 
PHI  2«t  MX  2*AH£?«L  M3. 1615  92  69  4/13  3. 

3<*. 5*C0*v**2*4)*$ 

CALL  TL335C33»14CH#3i»J. #3. #E944G) 

CALL  T  LOOS  <33.-1  AC  1,92.3  ..3.  .3ST32EI 
tJR 43*£0<UG»«0$C4lE 
IF< UcOAA4.k3.OI  EOUG-O 
tH*lST3*E.C0.0>  DSTJ4£*0 

1F( Jil.NE.C.. AS3.NCD0U .Sc.O, )CALL  T l335 I 33.1ACH. 3, #3.# 3, 

04*04*EDiU6*0ST04EO3clL';F*30FG 

»ITC  <MAlFHA-UM40l«3.141)9!MWnC* 

4HSi*PHU*PITCH*E3ATJ"  1  AHG2*PH12*PirC-«*63ATU1 

L*.5«CI*V*42*a *•> 

l-lolfs 

FG<mFn1«SIM4NGL)*FH2«3  1NUNG2) 
FGH*F*1«C3SUnG1)*F*2*:3SUNG2> 
iALAiCC-P-l-FGV 

i**3T*G  4<r  SH-34-1J4ULANC:  I /P 

XF<  SsGAEHT.E3.3l  GO  TO  223 
13AE1T*.  5*CA*V**2*a3*$*H4C 
U*<lEVE.U4AL4NC=~*D1cHTI/3L  ‘VH 
Ir< PtTCH.Lt. 0.1  33  T 3  220 

anG1cSS«HA*C  JS  |P|TC-0»4j«LAA*SIi<  P l TCh>*1 4*1 J*C3S < PITCH > 
•ITCH) 

P.M()ALA«CE«A*G  IcSS-HOHrHt)  MUF.4*,GlES$*C3S<PITCH|  | 

220  32*0*.5*Of*M  V2-PDC>**2.-<  V-.00)**2U  /DV 
IF(  l»4IhT. fcQ.O. 3* . J.Ht. II  GO  TO  250 
a;c**<fgh-o*-hjmalah:e  >  /  p 

PPINT  Z30.».V.L#3P.PFf£3P AG.F42 
•4IHT  230.PH2I  . ALPHA, T  ,  02 . 1 AL  *  HCfe  ,  ?  HI  1 ,  F  Ml 
PHI  IT  240, CL. CO ,C  H# ACC* ,  A3.3ELTAE 

233  F3«44T<5X.?t5I,E12.!) I 
240  F  34  H4T(»X,  6(51,  £12.5)  ./.AjOUH?)) 

253  IF(5£GA€HT.£G«3l  GO  73  263 
IFUF.Lc.3U  S 3  TO  523 

2e0  I F ( 3AL AHCE .GT«3..3&.3cITA)«fcG.3U  GO  TO  233 
33*1.  *  J-J-l 

DEI T4S*0« 

*  JSCUE-HA* 

XFU4A.EQ.1UQ1U. 

1FUAA.EG.1U32**. 

IFIHOAT. £0.3.1  *3  T3  1** 

PHlUPHUAi  %  PH2i*P4l2AP 
PAl*«r  273 


%  ALPHA  *4L  *HA4H 


ST3 
ST3 
STO 
ST3 
STD 
ST3 
STO 
STO 
STO 
STD 
ST3 
ST3 
ST  3 
STO 
STO 
ST  3 
ST3 
STO 
STO 
STO 

-OCEILOF 1ST3 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STJ 
STO 
STO 
STO 
STO 
STO 
STO 

'L  4  *S  I  N  (  PSTQ 
ST3 
STO 
ST3 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 
STO 


0115 
0116 
3117 
Olid 
OUT 
0120 
0121 
0122 
0123 
0124 
0125 
3126 
0127 
012b 
0129 
313* 
0131 
0122 
0113 
0104 
0135 
0136 
0137 
0136 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0146 
0149 
0159 
0151 
0152 
0153 
0154 
3155 
0156 
0157 
0 15S 
0159 
3160 
0161 
0162 
0163 
0164 
0165 
0166 
3167 
0166 
0169 
9170 
0171 


PA 


NADC-81259-60 


7*/t*  3>r-i  fti  *.s**jb  numt*  i».is.*3 


275 

f j*<nTCijx#*iNsr*NT4Nt3Js  station  at  cemi 

ST3 

0172 

PHONM-.ll  i  63  TO  130 

ST3 

0173 

2 s  0 

|r  (aALAN:«#6T.3..3B  .sf  *UA.e3.3..39.0:X.l£.3.)  G3  TO  290 

ST3 

017* 

17! 

3«l*l.  t  N[A*NrA*.  5  i  ^iP.SePtJrlL  JS*  *  3'J  TO  183 

STO 

0175 

29t 

002  A  V«V2  &  T-T*OT  l  «•*-(<  •si**?2)*0T/ 3600. 1 

ST3 

0176 

lF(P4JST.t5.-.11l  GO  T3  3a3 

STO 

0177 

(-<  J.LT.OISHAAI  GC  T  3  313 

STO 

017fr 

PRINT  303 

STO 

0179 

iac 

SCO 

F0*iAT(10A,*CAS5  If  R1I1ATE3  (0IST-4A  EXCEEDED)*) 

STO 

0163 

53  73  730 

STO 

0161 

313 

IH  i:0UNT.6T.1303)  GO  TO  *13 

STO 

0162 

Ir< iALAhCE .GC.0..3R.9 JC.S 3.0.  I  30  U  330 

STO 

0163 

Id*  0*  »  A3U*A5r  s  oaj:;.*D93C 

STO 

018* 

10* 

AGMI-HALANCE  >*G/* 

STO 

0195 

45  74* (AGT*aGYL)*« 5 

STO 

0166 

o9o:-o«o:i*A5fA*oT 

STO 

0187 

A80C-(DR3C*08CCl>*.5 

STO 

0168 

RJCH“R3CH*AA3C*DT 

STO 

0169 

19C 

lc ( IPRINT.ht.O. AHO.J. E3.I)  PRINT  323»083C»AGTA 

ST3 

3193 

323 

F3R NAT (IX. *01113  DATA**  2<  13l»  E2D.  5)  ) 

STO 

0191 

I ? (  09 3C • Gc  .ROC  I  53  T3  *30 

STO 

0192 

53  TO  350 

STO 

3191 

330 

lr{  S1n«3.5T.D..ANO.SHO.L£  .3  >  50  TC  900 

STO 

019* 

195 

3*0 

1?<3AIAHCE.LE.0. 1  CO  TO  *33 

STO 

0195 

350 

IC3J1T*IC  OL'hT *1 

STO 

0196 

53  TO  M3 

STO 

0197 

360 

I  r  ( IS  T9 1C  •  KE  «  3)  30  TO  390 

ST3 

0196 

PRINT  370.0*V.T»W 

STO 

0199 

zc  o 

370 

Fj*l47<13*.*0ISr4NCE  •  *,£20.5,9  F T. • * t, 1 0 A# • WcLOC I TT  •  *#£20.5#* 

STO 

0200 

(FT./SEC.**/#10X.*TI1£  •  •#  3X* E2J* 5# ♦  $  EC .* # /# 1 3* # • ElO  WEIGHT 

FOR 

THSTO 

0201 

(IS  PHASE  IS  •.220.5#*  POdHOS  PASS*) 

STO 

0202 

5J  TO  *wO 

STO 

0203 

360 

P9INT  390.0.W.T.W 

STO 

020* 

205 

390 

F1*«4Tfl3<>»31iTtNCE  •  •>E20.i>«  1. • . /, 10». • « 13C ITT  •  •>c20.»>> 

STO 

0205 

(  *. /5E:.*i Z.IOX. •rxi€  "•» 5X.e23.5.*  S tC . *• /.  Ux » *ENO  WEIGHT 

F3» 

THST3 

0206 

(IS  *  4  ASE  IS  *»E20.5#  •  H1L 3594*5  *1 

STO 

32C7 

*00 

XF( Sc  GHENT «E3.3 I  GO  TO  630 

STO 

0208 

50  TO  (500*6101#  SEGlcHT 

STO 

0209 

21 1 

*13 

P911T  *20 

STO 

0210 

*20 

F0RN4T( 10X.*T30  1UCH  THE  *1 

STO 

0211 

GJ  T  3  363 

STO 

0212 

*30 

*9  I*iT  **0 

STO 

OZ 13 

**J 

F3R14T(13X#*WEHi:ife  IS  AI930RNc*) 

STO 

321* 

215 

1SIK-13H  FT. 

STO 

021. 

IFM5T9IC.hE.3I  IShK.lJrt  1. 

STO 

3216 

IFISIHKO.GT.O. )  PRINT  *50.331 N<» I S I N< 

STO 

*217 

*50 

F0R1AT(WX#*HAAHU*  SINK  OISTASCS  I S  •  •  E  20.  5#  A 10 1 

s  ro 

0216 

1 F ( Jc I .Ne .0. « OR . 33. NE . 0 . )  PRINT  *o3 

STO 

0219 

220 

*63 

F0R1AT  (10KH0EI  AT  P  Sc  JO  3  LIFTOFF*) 

STO 

322C 

IFIRJC.cG.t. »  50  TO  *90 

STO 

0221 

IR0C-10M  FT./ Se  C. 

STO 

0222 

IrMETRIC.hE.O)  I90C*13H  N./SEC. 

STO 

0221 

P*  I  IT  *73.  R  CC  .  t  9  3C 

STO 

322* 

225 

*70 

F39lATClJX#*VEHi:Lfc  has  A  R/C  OF  •• c  2w.5. A 13 ) 

STO 

0225 

I90C* 10H  FT. 

STO 

0226 

IF(*ETR1C.NC.0>  1 9  CC* 10H  1. 

STO 

0227 

P9MT  *dd. ROC H.  I  9  OC 

STO 

3226 

C-5 
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MJJ94P  ST* 


f  lar-i 


r  T*i  41/09/29.  13.19*4} 


230 


233 


240 


243 


»!C 


235 


260 


293 


2  70 


273 


230 


2a; 


4?:  *•  4*t t ii*,*v:^T ical  HidOii  i,  **t2c.>*4ioi  sro 

4«0  S3  n  3&3  STJ 

3C-  MINT  MO  STJ 

310  FJ4N4TI  Wi.MJTJ  aOT4tI3N  IS  OCCjai^GM  STJ 

S3  T3  e  33  STJ 

C  UM4  CO40ECTI3N  AJT3  <  JT  AT  l  3-41 1  \  1 1 1 1 1 1  It  1 4  II 41  It  »**$  t  ST? 

5  2  3  IMS:CNcNT.4T*l.ANC.4H*U,i£.AlP-»-lM  GO  T  3  330  ST3 

530  CUL  TL335<30.a*0.fO*»3.» ITTZG)  STJ 

CALL  Tl035C31#-*1.»0. .0*# ICJI  STJ 

CALL  UJ35IJ1***  2.»l*o.»  t:gi  stj 

3:GS«4CG4*2*fCi4*2  l  C a  4 - S  *  HP •OL£¥  =  «*«CS  STJ 

ifr«iTTCs*»/s*3CJ>  t  ip i«: .lE.j. iso  ro  531  1  ^■cmcs  1  <»:»i.  stj 

5U  ia-rCJ**a  $  jaihas-it*  -af>  oiEve«/itt  STJ 

34c  M40OAIPHA4  *13l./3.  1415  3  2654  STJ 

AL*M4-4LPNA*0ALMA0  STJ 

1F(  SfGNciT.GI  •I.AnD.al’Ha.GEvALMMk*  Aro.  i  Ta  I?*L3*J)  GO  TJ  550  STJ 

itaxp-o  sto 

ifuaaisT.Kc.o.440.j.c3.n  mint  54c. alpha.oalphao*  iytc;*  x:g#tcg  stj 
340  FJ4N4T<lJ<»5C3t»£12-3 I*/*1X*3I15N  4UT  J  4 JT  AT  1 JN  II  STJ 

33  TJ  260  STJ 

cstmttm  mtiu  rar  to  cjjntes  sjtatxos  at  elevaT3i  stj 

5?C  OOStTAe-1.  *  IT9IP-0  STJ 

360  CALL  SNcST(N»4F*JELT4e*0JslT4E»91J.«A30S»9fL»AaOfL»XCNECX»XLJC)  STJ 
If U»*lNT.»E.J«AN9*J.ca.l>  PAINT  57C* N,AF, JeLTAg  STJ 

570  F34NAMlJX»25<lHMiSX*I10»2(l0X»£l2-3t  I  STJ 

If C9EITAE.1T.0EL147 I  S3  TJ  590  STO 

JfcLTAe-OSLPAX  S  *-0  I  XTSIP-l  STJ 

590  CALL  Tt003U4#4LfHA#3rlTA5,  PH* I  *  VS T A9 « 1,C L  I  STO 

CALL  TLOQ9ll3#:i.O£Lr4s,M2I#V$TAa41*;DI  STJ 

CALL  TL0J9ll7»CL#0€Lr4£»f 921#  VST*A41#CN)  STJ 

Ja-.J*CDM«U*A1*S  STJ 

0«-Oa*cO4AG*OSTjaE*OJElLJf*O3f3  STJ 

L-.  5«CLM**2*A3*S  STO 

L*t  *3Lf G  STJ 

1ALAKE*<-1-FGV  STJ 

0 *-J7*G  #|f ;n-34-1J«*AL4n:E)/«  STJ 

V2-V*0V  STJ 

NJnc<7-.3*CN*V**2M  J*S**»AC  STJ 

af«fLEVE4*6AL4NC:-PJN€NT>/JLEVE*  STJ 

If<?rrCH*LE.O*>  33  TJ  590  STJ 

ANG4£iS-L*4*C0S  (MTC  41*40^9  A*i l N < *1 T CH l*L J*C JS < P ! TC 41-l * • SI NI P iTJ 
♦iTCnl  STJ 

*?•<  mA9C€«AN3«eiS-4J1Eftri  /  (L*F»AiG4SSS«C3S<  PITCH)  »  STJ 

590  02- J*.5*OT*MV2-W00l**2.-I^-400M*2.  I/OV  STJ 

IfClTiUfl  530*503  STJ 

600  l  =  (N»  560*260  STO 

610  MINT  620  STJ 

620  F J*«uT< lJXf*ELc V4TG*  CJMHCTIJN  aTT£ NPTe 0*  I  STJ 

C  LlfTJFf  CNAAATeAI STIC J  STJ 

630  Pa  X  NT  640  STO 

640  f J»NAT(//*10»**LIF TJff  CHA4ACT?aiSTlCS*./ )  STJ 

AGV-<F GN-JP-4J4JALANCE) /*  3T3 

If <iM3NY*Nt,-**ll  G3  T3  673  STO 

»-»«:•  »#6J.  *V-rf|/sG4|  STJ 

iaoc-ic-4  FT/NlN  STJ 


0229 
0  213 
0211 
0232 
0233 
0234 
0235 
9236 
0237 

ozsa 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0246 

0249 

0250 

0251 

0232 

0253 

0234 

0233 

0236 

0237 

0239 

0259 

0260 

0261 

0262 

0263 

9264 

0263 

0266 

0267 

0266 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

9276 

0277 

027a 

0279 

0260 

0261 

0262 

0263 

0264 

0265 
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74/74  j?r-i 


FJ't  4.0*4»3 


*l/k/9/2$.  10.18.43 


33? 


3 1C 


115 


32C 


Ui 


34C 


Irl  <*:T4i:,tC*Ct  «J  f3  650 
NIMi-l  1/S?: 
p-*<:«p*4a:/6o. 
etc  *4iiT  fcii#  MAC#  I*3C 

ae.  4S  74*74  4c  JJS  */Z  12  ’*£>3.3*40) 

67;  IM  1£T*U.K£  ,0|  13  t  J  *,*  . 

»«nr  680. ah.lOa.f :v.?n 

ee;  f>  4Amo<#*>«j*  123*7  al  aciussau-jn  ••»e>o.5*«  »(ss/ii;x< 
••lIFT  ■•aUic25«S»*  PJtfNJS  rC*C5** /#  1C«*  *3445  ••*13X*620.S 
••  PJJsJS  rQSCe**/ flv»*»V£ U  UAL  i*JSS  T-MUST  ••*2**620. 3# 

••  ’JJNOS  FCa:€*»/.10***-«-/Z2,)NT4i  1°  3SS  T-HuST  ••»E2J.5* 

••  »:j*os  fcvcs* i 

SJ  T  3  7  1  J 

69q  ”tsr  709*  A«*  (  *l  #  3®  *  *  i  X*  f  3  9 

7C3  f  3**kTt  10  H,*42U  10*10  i::u:4«ri3l  •♦*c20.5»*  GC$«»/*13I* 

•  •LIFT  ■«»i9ik23.1»«  N=UT3N3  •*/*iC»*OaAi  ••*194*£23«) 

•  •  NtJTOi  •  •/*  10<*  *V£/r  ZCAu  HJSS  mj3T  ••*2X»E20.5» 

•*  4£JT0*$  •  Wa1*Aa«-0*U>T1l  G»3iS  T-HUST  ••*£23.  5* 

•  •  <6  JT3MS  *  I 

TIC  I F C ajM.Lc.C.I  53  TO  7 33 
Z*Ll  update ( aijaTa*d* aim 

iF< PONT. 60. -.131  CALI  UP34T= f PrtQAT A, D, MAC ) 

IF{  PilNT.LEO.  >  33  T3  723 

CALL  </Pi)4TEUJ<«.>ATA*9#P3>  *  33  T3  733 

723  CALL  UP0AT6C aUMOATA, 3* T 33ai 
733  ?U*T  743 

7 4f  FUMAT</*  U*22(6<  NEXT  >*/> 

33  T 3  10 

753  IMUN.lc.C.I  STJP 

I  -  (  /  ID  A  T  A  <  l ) • £3.  >•  I  33  TO  773 
P-U3;-SPLMClll*PiOAT4,<  JN> 

•»1*T  760.PM83C*  I8QC 

Tec  FJ*i4TU0<»*r*ST4NT4*€JU$  ZnTcPPOlATEO  9/C  IS  *>£23.3*4101 
773  A3«S>LNam»  A53A7  A.aUNl 

a*U-i-SH13U  u*  jOATA  *t‘jM 

<<1>«6N  F££T  l  <<21*6-1  TJl*  t  <<3)-10H  ’JjNOS  1A  %  <<4)* 
lFMeT8i:.LC.3.A<C.PSi<T.c3.3.1  33  T3  733 
<<1>«6H  *.  t  <(  3 )  •  13-4  <IL)G44<>  i  *<A|*2H 

53  73  730 
<  4  3  »  -  13 -*  1./S6C. 

XFMcTRlC.66.0l  33  T3  7Q3 

<<u-6-i  Ft  it  %  <<  3 1  •  i  j<  ft./ss:. 

7»C  PAI*T  79C#AUH*<I1)*<(2I*«^JH*M J 1 • < l A 1  *  AJ 

793  FOaNAmOX,A*f  CJSIC  5»Lli6  IHTcAPOLAUOS  JF  HE  433X6  3AT4 
••*/*2>***FQA  A  «J*  OF  •  »£23.9*46(«rNe**A6*«IS*»*£23.S*AlWA 

•  **AM3  TN?  HORIZONTAL  ACCElE’ATI  3*1  IS  •>e2C.S**  CCS*) 

STOP 

:fiYtt?if?f vnvtfi  sin<  3f?  r he  ijx  :ucjlatij<s 

803  irMJ,{J.y>  CO  T)  013 

I 2  <•3.41.0*  |  PS«X  \  IFiAS.CT.C.)  «S*<  %  IFUSF.5T.3.)  *$*■/ 
813  AiI«l-4ilNK  I  XiIN<L-XiI«  l  3S 11KI  •,3$I«iK 
Aii«-34LA4Cf  *C/a 
AS  I  «A«|  ASIMAASf  »KL>*.3 
/SINK-  VSIhHL*A5IS<A*DT 
VSh«*U$iM*«iI*IKLl*.  5 
JSXNK«OStNKL*X$X«AOT 

IF<  1/aiNT.KE. 0.410. J.E3.I)  PRINT  920* AS IN< * /SINK, OS  INK 


I e I  PS INT. c C.O* I 
*<2>»6H  PS  S 


St  J 

0286 

ST3 

0287 

S  TO 

0283 

STO 

0289 

ST  3 

0290 

STJ 

3291 

ST3 

0292 

ST3 

3290 

»  STO 

0294 

ST3 

0293 

ST3 

3296 

ST3 

3297 

S  73 

3293 

ST3 

3299 

STO 

oooc 

.  sro 

osj: 

STO 

3K2 

STO 

0003 

STJ 

0394 

STO 

0303 

STO 

0106 

STO 

0307 

STO 

030c1 

STO 

0339 

STO 

0310 

STO 

0311 

STO 

0312 

STO 

0313 

STO 

0314 

STO 

0313 

STO 

0316 

STO 

0317 

STO 

one 

STO 

0319 

STO 

0120 

2NSS  STO 

0321 

STO 

0122 

STO 

0323 

STO 

0324 

STO 

0323 

STO 

0326 

STO 

3327 

STO 

0320 

P01NTSST0 

0323 

3# /*  60X5T0 

0330 

sia 

0331 

STO 

3332 

STO 

0333 

ST3 

3334 

i  1u»  jS  TO 

0335 

STO 

0336 

STO 

0337 

STO 

0339 

STO 

0339 

STw 

034  J 

STO 

0341 

STO 

0342 

PAC 
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74/74  J^T-I 


FT*  *«6»42a 


a  1/09/  If, 


C20  FJ- l4TA#,J<it», £<;«*)) 
£3  T3  1*0 


143 


€MD 


S73  0141 
3T3  0144 
•  M3  0143 
ST3  0146 


M5:  7 


1 

-1 
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iu«ojThi  7wi4  j»r-i 


PTN  jl/0J/2». 


«2-  L 

; m  n au< <n .lT. tcuta i<zn  u  to  no 

TjAl4(*l ).T04T4<<2) 

TjAf  M<Z  )-XSAVE 

r,Ui.T04lM<l*l)l 
TOATA(<l*iO)*TJ4T*(<^«ni 
rjATU*2*30>»*iWE 
•OOS t-L 

no  c?9ii*ue 

I*t NOOSe. £0.3)  03  1C  120 
1*0  IH  Il.LE.  ))  50  T 3  *T0 

IM«>ftlKr.fc3*0l  53  T  3  ISC 

mar  iso 

ISO 

ISO  7415T  1 7  0. KT  H 
170  rim  J  (  m,  >4Nl4  iLi 


14*30058 
14*30339 
T4< 503*0 
14* >0061 
14*50362 
14*5096) 
14*53064 
14*500*3 
14*30066 
T  A* SQOfcT 
T  4039*5 
14* 50069 
TA*  90070 
14*50071 
T  A*  53072 
TA*5307) 

3  4  f  A  is^jr  SJ414J  T.14l2.1X»5'<TA6LsS» //. *814*50374 


II.444TA8LE  HUXdeA  *£F:9t*:&  MME*  A344T  L3C4TID*  1  1*00379 

7*H1  150.  U'«.r0ArA<«<|»TjATA<4O0ll.9«l.*TiL»  T4*53J76 

159  FD4-4AT  <32X.I2»12X.FS«0.15X.F*.9)  TAA50377 

Hi*T  1?0.  NIAA.m*  7**50076 

190  FJ44AT  ( //.)5X» 24HCATA  STJ4A5E  All3C4T1QM  » U. /35*. 24H34 T*  S 10* AtETAKSO  379 
1  NOT  USED  .14./)  TAOOOeo 

IrMUOU.GT.OI  »«!*!  2  :  0.  *  S  1  U  JS  C  U  »  »  I  0*  1 .  i  5  cl  )  TA*5036l 

203  «  J*  44T113X.4TH6  ?QLl3*l*6  T46V.cS  -U*c  lee*  *  E  *1  AC  EO*.  SC  5  X  .F  10*0.  •  .  Ta*  500c  2 


2*1./.  (6  CSX.f  10.  J.  *.  ♦  It) 

C  HINT  1111.  I|9.T34|*(I|)  ).N-1.  LOCI 

Cllll  F?<*4T(S(lX.l*»i<#E12.5U 
4ETJ9N 
2 10  10-1 

IHNHJmT.EO.O)  I7«0 
7*1*1  30.  I7.I145N3 
!F<nP4Zn7.*E.0>  MJwl  220 
220  F 3* H*T| ////// • 

ICC  •  0 

L-*l  )C 
10-4-4 

03  2)0  ICl-1.5 
230  iJC  l  ICL1-4H 
2*0  IOA-IO 

Rr*0  290. 10.4. V  44 1 1. l-l.Nl 
2*0  f  0*  44  7(44.  13.  34.  ITU.  7F10.3I) 

lr{ IJ.E3.4H£0T  )  40  1)  29 

ICC-ICCU 

IMICC.LE.51  IOOUCO-ID 
KFU3.E0.10l)  30  TO  35) 

Kr(U.NC.lOOIS))  30  73  261 
IF(IJl.c).  100(3) )  33  T 3  ISO 

LOC-LE 
l*LA 

5  3  73  269 
2 60  TOATMIOCI-N 

l-lj: 

IH  I0.E3. 100(2) )  30  TO  )9J 
270  IMlO.cQ.  100(41)  LX-L 

IrUO.ME.IOOO) )  33  TC  333 

ir-L 


T 4*  SO 08  3 
14*50084 
1**90005 
1**50006 
14*5036  7 
1**53068 
14*50909 
14*50090 
1**50091 
1**30092 
T  4*  50093 
14*30094 
14*50095 
14*50996 
14*50097 
14*50090 
14*30099 
14*50100 
14*50101 
14*30102 
14*53103 
14*50104 
T4* 30103 
14*53108 
14*53107 
14*30108 
14*30109 
14*53110 
14*33111 
14*30112 
1 4*33113 
14*50114 


10.16.43 
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74/74  i»r.i 


*TN  4.0*426 


11/39/20.  io.ii.4i 


12*42  *1 
ST  n  330 

2  5-  IHU.tO.O)  S3  n  333 

IrliKlNT.Nc.3l  HINT  29j.  1*3111.  T3AT4CIO 

2*0  F341lT(U»4^M*iEU*t) 

IF|N<*aXsr«Kc.OI  MINT  300.103121. T3ATACIZI, IDJ(3>, TOaTACIY) 

300  F3AN4TClX.A4.1H».fl3.5. 1* # 4 4# 1H«» c 33. 5  I 
JF*0 
N*N 

if*l< 

313  nF«9 

1  r  t  i.&r.dl  ht>-3 
NaN-i* 
te-l***** 
lF*«.C*l 

I?  (  nH  INT.NE  .3)  HINT  323. 130141,  CTCATACII  ,  i-CF.Lc) 

320  P3<14TC23*#44#U#d£13.5> 

UF*l£ 

4  =  «.JF*NF 
Jr*  4r*l 

IFC  NHlNT.hc.OI  MINT  120 » 1 00 (9 1 . ( A < 1 1 » I • IF, J£ > 

4F«4E 

IFM.GT.OI  S3  T 3  310 
330  03  140  t-l.N 
L3:*L3Cil 

340  TJ4T4(L3:  l*MII 
L:*L3C 

XrCO.£3.rOO<«H  T0ATAflK*2l«l. 

L3Ca$.*3**«*3 

IFCw3C.GT.N44II370.24O 
330  T34T4CL0CI-T04T4CL*) 

t»u: 

33  340  I*l.S 
1 3C  »L  3C  ♦  1 

350  TOAfACLOC  WJATAU**;  > 

S3  T3  290 

37*  74 1  NT  103.  ITAJNJ 

370  FJANAT  CU.32rt»*7**«***T4H.fc  F13X  .TAKE  .19. UK  HOT  4.0A0E0) 

63  T J  40 

390  LZ-L3C  S  16-10*1  4  63  TO  270 
ENT 97  Tt 335 

lFCll.lfc.3)  HTJM 
:•••  5£  AXS  i  F 34  C34«E:T  TML: 

Ni*NT9C*l 
HC  ■  l 
X*UaST 
XT49*  II 
XTO 

4C0  xT»xr*l 

1FCXT.6T.6)  SO  TO  470 
[FI  MT40-TO4T4C  <>)•£  3.3.  I  S3  T3  413 
IFC ( <T43-T0AT4«<| I.LT.3. »  SO  TO  413 
Nl  a  X 

S3  T1  420 
4 1 C  Ni*< 


14X90119 
TAX30116 
TAX50U7 
TAXiOild 
TAX  90119 
TAX5J12., 
TAX  3  0  12 1 
74X50122 
TAX  50121 
TAX53124 
TAX  53125 
T  4X5  3126 
T4X53127 
T  4X50128 
T  AX  5012  9 
TAX5S133 
Tax  50 13 1 
T  ax  50132 
T  4X50111 
T  4  X  5013  4 
TAX50135 
T4X50136 
T4X10137 
T  4X50136 
T  AX  50139 
TAX  50140 
T  AX5  3 14 1 
TAX50142 
T  AX  50141 
TAX  33144 

TAX  53 145 
TAX  30 1 Ao 
T  AX  5  0147 
T  AX  53149 
TAX  50 149 
TAX  50190 
Tax  50131 
TAX  50152 
TAX  53193 
TAX  50154 
T  4X5019  5 
T  AX  501 5  a 
TAK3013? 
TAX  90159 
TAX  50159 
TAX5016C 
TAX  90161 
T  AX  50162 
T  AX  50163 
TAX90164 
T  AX  50165 
TAXS0166 
T  AX  50 16  7 
1  *X  50 166 
T  AX  30 16? 
TAX  99170 
T  AX50171 


i 
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SUbX JJT I4f 

lx«‘*  74,/?*.  3?T-1 

TIN  4.**428 

41/04/ie. 

42w  X*(X4-ND/2«XL 

TAR  301 72 

53  n  *oa 

TAX 90171 

41W  HAST •* 

TAOoir* 

173 

titmTHM))) 

f AX5017* 

KN2*r)«Tiiin 

T4X331 76 

7X03177 

zx.ir 

TAX  $3174 

izi«tz»i*z«i 

TAOJ174 

lib 

122«12*2M»2 

TAX  30110 

03  »»0  I2S-12WI22 

TAX  30191 

IMT«T0AT4I!Y) 

TAX3316  2 

T  XX  30 18  3 

l««IX 

TAX  30104 

11) 

WOOLS 

I 72 • l 7  *2* I  NY 

TXX30106 

30  »»3  l»5-ITl.tr2 

T  XX  30107 

j  'tx-TOATUll) 

TXX3018I 

!o)*(NI7UO 

19G 

T  XX  30193 

lX2«tX*2*(M 

74X90191 

DO  44.0  1IS-U1#  1X2 

TXX30192 

TXX30191 

*43  Ix«WO«T3ATAIlXI*3 

T  XX  5019  x 

199 

T0»TMIYS)-S*l'OlllI,T3AT».II 

TAX J0199 

420  jx-lrf 

TXX30196 

Y3»TMI2SI-5M.43UIT,T}»T».  f) 

TAX  3019  7 

46C  IT-IX 

TAX30194 

f.«r!*Sf  lhou  iz ,  r  a*Tt»2 1 

TAX  30199 

200 

470  4EIJ4N 

TAX93209 

iso 

TAX 90201 
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APPENDIX  D 
Program  Logic 

Flow  charts  for  the  main  STO  program  and  the  subroutine  TAKE5  are  presented. 


L'  '’■‘a: 


NADC-81259-60 


_ i _ 

SL.=ft;.PH^:N=toeRS=osrop£-  =v=r=RLT=n-t  ■-•s!t:=ph:i=ph: 
F!n=PN2=0LFG=0DT  G  =VSTRRS=k:OfiT JM=fc>  H  1L  fl=3£ " -Z'L  ’LOSi  -G 


!  GOT  TL0r-P5F-PH:  IRR=PH:  lRP=PGrNT=RGY=DR3C=R3r=WL’0=R3CH=PH3N  '=a  . 

f2=R£=0£L  TFiE,=PKi2RR=pH:2RF:=ai.PH?}RR=sLPH33R=RUN=Pf:=3c  rrfis=aa=n . 
LOTir.f-S‘3  .  *  i'.U=  .02  i  N2a=NCt-  =  l  -  S  31  =  1.  *  G2=2  .  i  0C3T*tqx=t 


<> 


LlCflJ 

.  20  ^ 

r*t _ 

gjLH 

I  RETRO  30 

.[COPY  | 

30  1 

i _ 

fjKSZHFZE 

■SBSB 

, _ 40  _ 

I  PQRP.RTt  IX  .231  .B3.731C)  I 


1 


$ 

CONT.  ON  PO  3 
D-3 


.tcora2i  .r.a.'.Hi 


NADC-81259-60 


_ 1 _ 

C C,L L  TRFSSi  i  .Wp.Yg.  I'S.ZQ.FHXYZ; 


SC  s 

_ 

_ _ _ s 

2 _ 

I  GC  TO  i.  ID 

log _ 2 _ , 

1  PRINT  40.TC3PY  1 

_ 2 _ 


5  *  F!£~q0  OHTfl 


NADC-81259-60 


NADC-81259-60 


NADC-81259-60 


J=J+i  €  IFC.J.C-l Jsl 

TOiJM^T  «  t  F  i  TOUM  .  3T  .REV  TIME)  TDUt1=R£V  TIME 

PHI?.sPK2l  _ 


NADC-81259-60 


O 


MADC-81259-60 


IFCRLFHR.ST.FLPHRR? 


NADC-81259-60 


PO  2 


13 


pp  ar _ 23l 


NADC-81259-60 


NADC-81259-60 


I 


a*jc-^.ESS=LR9*ccs(  p  i  rcH  2  *Mu«LRa*s  in  (  p  t  rcH ;  h.r*,'iu*ccs(  pi  tch  2  -ur*s  t  n  ( r 
1 tch  2  _ 


NADC-81259-60 


<5- 


_ 2 _ 

I WCCX a i  FGW-OR-MU » SRLBNCfc ) /  wj 


i 


PRINT  230.W,V.L.0R.RF,I 
PRINT  23Q.PH2I  .RLPHS. 
PR  INT  240  .Cl..  CD  .CH.  SZC. 

EORRO  ,FN2 

T  ,  32  .BRLRNCf.  ,PH  1 1  ,FN  l 

X  .  R3  >OEl.TRE 

■'  '  “  1 

) 

230  'I 

7  .  .  .  , 

1 F3RM3T(SX .7 

:sx  .E12 .5 ) )  | 

r  _  240  ^ 

7 .  , 

!  F3RPB7( 5X  .  St  5X  .El 

2  .5)./.  1301  lH?n  | 

& 


C2HT.  3N  TO 
D-17 


'.7 


NADC-81259-60 


C3NT.  3N  PQ  ! S 
D-18 


MADC-81259-60 


NADC-81259-60 


i 


NADC-81259-60 


F  31**97  (  10X  .*OtSTRNCF  =  «.fc'20.5.*  FT  .  10X  .*VEL2C  [TY  =  *  ,E2 
FT  -^SEf  *  .  /  .  I CX  .  *T I  ME  =»  ,5X  .E20  .b  ,  r  SIT  .»«./.  IOX  .  nfc'NO  KEICWT 
:s  PHREF  rS  ■  rt  20  -  S  .  »  »CUNCS  MRSS»1 


no 


OL 


NADC -81259-60 


BLPH3  CORRECTION  9UT0  I 


P 


❖ 


CONf.  ON  PO 
D-27 


27 


NADC-81259-60 


NADC-81259-60 


forkrtc  lox  c^RREcrroN  pttexeted*  j 


PH!?C=V«60  f  L«-PGV-W  J/FGH) 


65  Q 


PRINT  6SC  .PHRC  .  [ROC 


CDNT.  3N  PO  3'J 
D-33 
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'(  lCX^'NSrflNTflNEOUS  R/C  IS  «.f20.5 


EfDS^ 

570  h 


PRINT  550  ,SGX .L ,DR .FGV .FGH 


FORMfTt  1CJX  .*HORIZONrfiL  RCCL!.ERRr  CON  =».E20-5.v  0  S*  .  >  .  I 
■LIFT  =■  .  19X  .E20  -  5  ,  »  “DUNCS  FORCE*  .  /  .  ICX  .  *DRPG  =*,19X.E 

*  POUNCS  FORCE*  ,  /  .  13X  ,*VERT ICflL  GROSS  THRUST  =*.2X.EZ0- 

*  POUNCS  FORCE*  ,  /  .  K!X  .  sMOR IZONTRL  GROSS  THRUST  =*,£20.S 
k  POUNCS  FORCE*! 


F3RP.RTC  10X  . ^HORIZON  TRL  RCCELERRT  ION  =*,E20.5.r  0 
■LIFT  =■  ,  '.9X  .E20  5  .  *  NEUTONS  *  .  /  .  10X  .  *ORRG  =  ».’.9X.E 

r  NEUTONS  »  . /  .  IOX  . ■VERTICAL  GROSS  THRUST  r»  ,2X .E23 - 

r«  NEUTONS  ■•/.IOX,  ■HOR IZONTRL  GROSS  THRUST  =*  .E20 -5 
*  NEUTONS  *1 


3- 


UHon  -  wrorj 


IF C  PHONY . EQ . - . 1 3 i 


']/•'  AD-A109  861  NAVAL  AIR  DEVELOPMENT  CENTER  WARMINSTER  PA  AIRCRAFT  —ETC 

A  SHORT  TAKEOFF  PERFORMANCE  COMPUTER  PROGRAM. <U> 

NOV  81  D  B  KOBUS 
UNCLASSIFIED  NADC-81259-60 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  RUH!  All  Of  STANDARD''  |Mi.<  a 


CALL  UPDATE" '  RUNDATA  .  D  .  TOSli  ) 


NADC-81259-60 


£ 


PRINT  760.1 

PHROC.IROC 

?S0  \ 

7 

(  F3RM9T( 10X .* INSTANTANEOUS  INTERPOLATED  R/C  IS  *  .E20 .5 .AID )  | 

z _ 

35 

1  El 

'ic _ { 

| RG=SPLNS1C 1 .RGDRTR.RUN)  | 

<y 


_ 2 _ 

KC 1 )=SH F. *  Kt3)=ICH  KILOORRPS 5  K(4)=2H  I 

- - — i—  —  ■■  ■  -  ...  i  i 


NADC-81259-60 


KC2)=SH  ?S  *  K ( 3  5  =  1 OH  K./Sr 


NADC-81259-60 


CTBKES-  I 


SUBROLST  TNE  TRKE5HI  ,H  ,X  .Y  ,Z  .KHXYZ  3  I 


_ 2. _ _ _ 

C*>a  MODIFIED  3TREB0  TO  INCLUDE  F3UR  INCEFENCENT  VRRIBBLES 


1 L3C=S1 


<  DC  IQ  Mal.NH9X~> 


1  -  -  -  O 


12 _ 2, 


TDRTflC*l=a. 


CCNT.  ON  ro  2 
D-41 


NADC-81259-60 


NADC-81259-60 


NADC-81259-60 


LIBRA .CT .NERfiK ) -ANC . f LIBRA .LT .L 

T 


|  L t6RBN=LI6RR  ' 

"  "  >  70  i 

2 _ 

I  CONTINUE  t 

_ i 

■> 

|  LEO=L IBRRN-MERRK  ! 

r 

J  ■■  —  ,  !.  » 

l - 

|  TDRTRt  NERRK j=TOHTfit NEKKBR  T  1 


-  -  -  E> 


SC _ 2. 


j  ftERBKsHEBRKfl  | 


<  DO  90  NEKKRRsl .NTBL  > 

| 

\ 

7 

I  LL0C=T0RTRC 

NEKKRRr301  I 

V 


* 


CCNT.  ON  TG  5 
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COST.  ON  TO  S 
D-47 


NADC-81259-60 


CONT.  3N  TO  12 


NADC-81259-60 


MDC-81259-60 


GO  TO  33T~~~>C^|- 


6 

f  IZ=LZ»1~| 


GO  TO  330 


CONT.  OH  ro 
0-53 


14. 


NADC-81259-60 


_ 320  v _ 

t  FOmST  1 20*  .  94  r  i  y  .  3£  1 Z  .  5  \  | 


T 


NADC-81259-60 


:fi  (XTRB-roByRcm )  .lt.o  i 


CCNT .  3N  PO  20 


C3NT.  ON  ro 


NADC -81259-60 


_ 2 _ 

I  NY =T0RTRt m 
rx=3*:Nr+ix+3 
I  K=  EX 

IYl  =  lY«-tNYi-l 
IY2=IYi-2»rNY 


<  DO  450  I YS=  t  Y l . [ Y2  > 

_ _ i 

z _ 

!NX=TOflTBC IX 1 

I  W=3*  1NX  +  C  W«-3 

I X  l  =  IX+- 1  NX+  l 

rx2=  ix  i-2»:  nx 

_ i 

2 _ 

<  DC  440  E XS= I X 1  .1X2  > 

i 

_ i 

z _ 

|  TCRTRt  IXS )  =SPLNC  I  (  [W.TOR'R.Hl  | 

>  440  \ 

z _ 

|  IR  =  IH*3iirC!RTR(  [W  1  f 3  \ 

|  TOBTBC  IYS)=5PLNE:C  lX.T3fl,‘fl.X)  ] 

-  -  -  >  4SG _ 1 

j  IX= 

:IW  | 

7 

rgqrBt  rzs)=sri.NS: i iy .tobtr .r i 
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